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1.  INTRODUCTION 


The  prediction  of  costs  of  future  manned  aircraft  operations,  including 
the  personnel,  equipment,  and  facilities  required  is  a  procedure  backed  by 
decades  of  experience.  The  situation  for  costing  future  ground-launched, 
recoverable  unmanned  vehicle  operations  is  quite  different.  While  a  minor 
amount  of  experience  exists  for  unmanned  vehicle  programs  based  on  the  Viet 
Nam  conflict  and  the  on-going  COMBAT  ANGEL  program  at  Davis-Monthan  Air  Force 
Base,  there  is  not  a  generally  accepted  costing  methodology  for  unmanned 
vehicles.  This  is  especially  true  for  operations  involving  large  numbers  of 
vehicles  for  no  experience  exists  in  this  area.  This  situation  has  made  a 
meaningful  cost  comparison  between  manned  and  unmanned  vehicles  virtually 
impossible. 

In  an  attempt  to  rectify  this  shortcoming  for  a  manned/unmanned  vehicle 
operational  comparison,  the  Directorate  of  Aerospace  Studies  (DAS)  developed 
the  effectiveness  and  costing  methodology  of  the  COEFUV  (COst  Effectiveness  of 
Unmanned  Vehicles)  model.  The  effectiveness  methodology  addresses  a  fundamen¬ 
tal  operational  difference  between  manned  and  unmanned  vehicle  operations  — 
the  ability  to  store  unmanned  vehicles  for  long  periods  of  time  prior  to  their 
use.  The  costing  methodology  represents  an  extensive  application  of  analogy 
and  first  order  analysis  to  determine  from  the  most  detailed  unmanned  vehicle 
operational  concepts  available  the  nature  of  the  factors  determining  unmanned 
vehicle  operational  cost.  For  the  costing,  the  following  areas  were  identi¬ 
fied  as  being  characteristic  of  unmanned  vehicles: 

1.  Vehicle  Acquisition. 

2.  Operating  Location. 

3.  Launch. 

4.  Recovery. 

5.  Maintenance. 

6.  Operations 

7.  Storage. 

8.  Training. 


O 


3 


Figure  1  shows  the  fundamental  relationship  between  model  inputs,  the 
effectiveness  methodology,  the  costing  methodology,  and  the  final  product 
which  the  model  delivers. 

The  effectiveness  and  costing  relationships  for  the  COEFUV  model  are  dis¬ 
cussed  in  sections  2  and  3,  respectively.  Section  2  presents  a  set  of  equa¬ 
tions  which  relate  the  mission  to  be  accomplished  by  the  unmanned  vehicles, 
the  time  available  to  do  the  mission,  and  the  number  of  vehicles  required. 
Section  3  presents  the  costing  equations  developed  by  DAS  for  the  eight  cost 
areas  mentioned  previously.  An  equation  for  each  area  is  given  with  the  defi 
nition  of  each  symbol,  including  the  proper  dimensions  to  avoid  ambiguity.  A 
brief  discussion  of  each  equation  is  also  included. 

The  executive  routine  of  COEFUV  is  built  around  the  equations  of  sec¬ 
tion  2.  The  COST  subroutine  evaluates  the  equations  of  section  3  and  the 
INPUT  subroutine  handles  all  program  input.  Program  inputs  are  discussed  in 
section  4.  Section  5  illustrates  typical  inputs  with  some  of  the  resulting 
output.  The  report  is  concluded  with  an  appendix  containing  a  commented  pro¬ 
gram  listing. 
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Figure  1.  The  relationship  between  major  inputs,  the  effectiveness  and  cost  equations, 
and  the  final  model  product. 


2.  THE  THEORETICAL  EQUATIONS 


One  of  the  fundamental  differences  between  manned  and  ground- launched, 
recoverable  unmanned  vehicle  operations  is  the  potential  to  keep  unmanned 
vehicles  (U/V)  in  storage  prior  to  the  onset  of  hostilities  and  to  retrieve 
them  from  storage  as  desired.  This  possibility  provides  options  for  the  use 
of  unmanned  vehicles  not  available  with  manned  vehicles.  These  options 
basically  may  be  characterized  by  the  number  of  vehicles  initially  ready  to 
fly  and  the  number  initially  in  storage.  The  possible  configurations  run  from 
the  extreme  of  all  vehicles  initially  ready  to  all  vehicles  initially  in 
storage.  The  theory  discussed  below  will  treat  the  implications  of  these 
various  configurations  to  the  cost  of  doing  a  specific  task  in  a  fixed  time. 
Two  cases  will  be  considered  in  the  following  discussion.  They  will  be 
denoted  as  the  target  rich  (optimization)  case  and  the  constant  level  of 
effort  case.  The  computer  code  implements  both. 

To  facilitate  the  presentation  of  the  theory,  seven  basic  quantities  will 
be  defined  initially. 

Eq  =  the  job  (mission)  to  be  done,  consisting  of  Eq  subtasks. 

dQ  =  the  number  of  days  in  which  to  do  the  Eq  sub tasks. 

p  3  the  expected  number  of  the  EQ  subtasks  done  by  each  successful 
unmanned  vehicle  sortie. 

A  =  the  single  sortie  attrition  of  the  unmanned  vehicles. 

n  3  the  number  of  vehicles  to  be  retrieved  from  storage  each  day. 

d$  =  the  number  of  days  vehicles  are  to  be  removed  from  storage. 

r$  =  the  sortie  rate  maintained  by  a  ready  vehicle  while  it 

survives. 

With  these  definitions  in  mind,  consider  figure  2.  Depicted  heuristically  in 
this  figure  are  several  time  histories  of  the  number  of  the  launches  per  day 
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SORTIES  LAUNCHED  PER  DAY 


Curve  a 

All  u/v  ready  at  D  =  0 


Curve  d 

S-  0  after  „«»  day 

W-~rr: 


Curve  b 


Curve  c 

Removal  rate  =  attrition 


CONFLICT  DAYS 

Figure  2.  Examples  of  Time  wie+m  • 

Various  Possible  OperaUo^rst^ls^  D"y  f°r 

required  in  achieving  E  in  rt  w 

a"  Vehic,es  ,nit1al'y  ready.0  On'tbe  fw  *  rePreSe"ts  the  Nation  of 
recovered  and  relaunched  repeatedly  as  lono  ^  ru'  Vet"C,eS  f6  ,a“nch<id  Md 
r3te  V  0n  succeeding  days  this  natt  7  survive.1  at  the  sortie 

the  predid“a  «ay's  survivors.  CurvTb'5  rePeatad'  h09™’"9  the  ^ 

°f  *6  rehid,«  «  Initially  ready  a  arV^r"^  “*•  “hfdh  "°"e 
ddcd  d»y-  In  this  case  as  tin*  progresses  V"  ^  ^  ^ 

°”  eacd  Sdddd«'-  <ay.  curve  c  rep^n  '  " ”  J"°  are  ready 

correct  number  of  vehicles  being  initially  !  Cnt,C3'  °f  (,recfaely  the 

"eed  be  re”0l,ed  from  Storage  each  dav  to  ,  7  °"'y  enou9h  vehicles 

Anally,  curve  d  depicts  the  situation  **  'he  3ttn'ted  veOicles. 
storage  for  0n,y  ds  day,  the  .“  pit  ,7'’“  "  "ithdy“  fdd" 

JUSt  re0Udes  th=  'osses  for  each  of  he  o  '  rOT°Va'  ^  f™  “-age 
tases  win  also  be  called  critical  cases  5  “  ""**««•  ^n  such 

1-  A  constant  probability  Of  survival  , 

s  associated  with  all  sorties. 
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It  is  obvious  that  each  of  these  cases  potentially  has  a  different  cost. 
The  different  launch  and  recovery  rates,  storage  retrieval  rates,  storage 
costs,  and  so  forth  which  are  implied  strongly  indicate  different  system  costs 
because  of  differing  requirements  for  personnel,  equipment,  and  facilities. 
Additionally,  each  different  case  will,  in  general,  require  a  different  total 
number  of  vehicles  with  a  different  acquisition  cost.  The  equations  of  this 
section  address  the  total  vehicles  required  in  storage  (N  )  and  in  readiness 
(Nr)  on  the  first  day  to  do  EQ  in  dQ  days  if  n  vehicles  are  retrieved 
from  storage  each  day  for  d$  days,  beginning  the  first  day.  Each  ready 
vehicle  is  assumed  to  maintain  a  sortie  rate  r  .  Equations  giving  the  maxi- 

i  s 

mum  required  launch  rate  are  also  given. 


N  * - T 

r  r„d 


Eo  ^ 


1-P_S  0  pPslPrPcl 


d  +  P 
s  s 


/s(V*s>Kds  \ 

'  1-p  s  ' 


(1) 


where 


1/r, 


P-  *  Pls  PslPtlPclPs2Pt2Pc2  =  single  sortie  survival  probability  of  a 


2 

vehicle 


and 

P^s  =  the  daily  probability  that  a  vehicle  on  the  ground  or  its 
ground  facilities  are  not  destroyed. 

psi  =  conditional  probability  that  a  vehicle  survives  ingress  area 
defenses  given  that  it  reaches  the  ingress  area  defenses. 


1.  See  Anderson,  Richard  H.,  The  Effects  of  Force  Augmentation  on  Launch  Rate 
and  Force  Size  Requirements  for  Recoverable  Vehicles,  PAS-WP-79-1,  Directorate 
of  Aerospace  Studies,  Kirtland  AFB,  NM,  Jan  1979,  for  a  complete  discussion  of 
the  following  equations. 

2.  The  reference  of  footnote  1  does  not  consider  terminal  survival  separately 
from  area  survival  in  the  definition  of  Ps,  and  also  combines  pcipC2=pc* 
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^s2  =  conc*itiona1  probability  that  a  vehicle  survives  egress  area 

defenses  given  that  it  reaches  the  egress  area  defenses. 

P ti  *  conditional  probability  that  a  vehicle  survives  ingress 

terminal  defenses  given  that  it  reaches  the  ingress  terminal 
defenses. 

P^2  =  conditional  probability  that  a  vehicle  survives  egress 

terminal  defenses  given  that  is  reaches  the  egress  terminal 
defenses. 

Pc^  =  conditional  probability  that  a  vehicle  is  not  lost  to  a  system 
failure  during  ingress  given  that  it  does  not  abort  and  is  not 
destroyed  by  the  ingress  defenses. 

Pc2  =  conditional  probability  that  a  vehicle  is  not  lost  to  a  system 
failure  during  egress  (=  P^)  given  that  it  does  not  abort 
and  is  not  destroyed  by  ingress  or  egress  defenses. 

?r  =  probability  that  a  vehicle  does  not  abort  during  ingres;  . 


In  the  computer  code  the  values  of  P$^  and  P^  are  calculated  from 
the  input  quantity  PSS  which  represents  the  total  mission  attrition  due  to 
area  defenses.  It  is  assumed  that  ingress  area  attrition  is  twice  egress  area 
attrition  whence 


•_  -1  +V 1  +  8  x  PSS 
si - 1 - 


(2) 


s2 


_  1 
"  T 


(1 


+  Psl> 


(3) 


Similarly,  P^  and  P^  are  calculated  from  the  input  quantity  TPS  repre¬ 
senting  total  mission  attrition  due  to  terminal  defenses. 
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tl 


-  -1  Wl  +  8  x  TPS 


Pt2  “-f  (1  tPU> 


Pc2  is  assumed  to  be  equal  to  P^.  The  product  is  input  as  PC. 

The  number  of  vehicles  required  in  storage  at  the  start  of  the  war  is 
given  by 


N 


s 


1-P 


ds 

Is 


n 

(1-P 


Is 


(4) 


Finally,  the  maximum  number  of  launches  required  on  a  single  day  is  given 

by 

L  =  1 

max  1-P 


Nr(l-Psb) 


(5) 


in  the  case  that  the  removal  rate  from  storage  is  less  than  or 
critical  removal  rate  associated  with  curve  c  of  figure  1,  and 


max 


(  rsds  r 

-v  Ps  su  -  Ps 


r  d  ) 

!)  +  ns(l  -  Ps  S  S) 


equal  to  the 

by 

(6) 


otherwise.  Unless  raid  size  is  a  factor,  the  maximum  required  hourly  launch 
rate  may  be  calculated  directly  from  l)Tiax  by  dividing  by  the  number  of  hours 
in  an  operational  day.  However,  unmanned  vehicle  employment  tactics  may 
require  the  vehicles  to  be  sent  in  raids  of  multiple  penetrators.  If  the 
launching  of  the  vehicles  in  a  raid  is  required  to  take  place  in  a  short 
interval  of  time,  then  the  implied  instantaneous  launch  rate  may  exceed  the 
nominal  hourly  rate.  In  this  case,  the  higher  instantaneous  launch  rate  will 
be  taken  as  the  required  hourly  launch  rate  in  the  evaluation  of  the  cost 
equations  of  the  next  section. 


C- 


11 


Using  these  equations,  the  model  distinguishes  two  cases  with  regard  to 
the  nature  of  E  ,  the  job  to  be  done.  The  first  case  requires  only  that 
Eq  be  done  in  dQ  days.  It  represents  a  "target-rich"  environment  in  which 
a  sortie  on  any  day  can  accomplish  p  of  the  EQ  subtasks.  The  second  case 
requires  that  EQ/d0  subtasks  be  accomplished  daily  for  dQ  days,  i.e., 
the  job  to  be  done  is  constant.  This  second  case  is  identically  the  critical 
case  associated  with  curve  c  of  figure  1.  These  classifications  are  not  truly 
representative  of  any  mission,  but  they  are  a  suitable  approximation  in  most 
instances.  For  example,  strike  of  fixed  targets  is  represented  by  the  first 
instance  with  EQ  representing  the  number  of  targets  to  be  killed.  Recon¬ 
naissance  of  "located  targets"  is  an  example  of  the  second  situation.  The 
number  of  targets  to  be  reconnoitered  each  day,  EQ/do,  is  approximately 
constant. ^ 


2.1  THE  CONCEPT  AND  EQUATIONS  FOR  COST  OPTIMIZATION  FOR  THE  TARGET  RICH  CASE 


For  the  target  rich  case,  given  E  ,  dQ,  p  ,  A,  and  r  ,  there  are  as 
many  ways  of  performing  EQ  subtasks  in  dQ  days  as  there  are  possible 
choices  of  n  and  d$.  Associated  with  each  choice  is  a  cost.  For  a  given 
value  of  ds  the  minimum  cost  can  be  found  approximately  by  calculating  the 
cost  associated  with  various  values  of  n .  Rather  than  input  individual  values 
of  n  ,  however,  the  program  automatically  variesn  from  the  case  of  curve  a 
(all  vehicles  initially  ready,  n=0)  to  the  case  of  curve  b  (no  vehicles  ini¬ 
tially  ready,  n  *  n_.v)  in  steps  of  0.05  n_,  The  cost  determination 

max  max 

is  treated  in  the  next  section.  The  value  of  n. „  can  be  found  from  equa- 

max 

tion  (2)  by  equating  the  right  side  to  zero.  The  result  is 


nmax 


d  -Pr*(d°-ds) 
s  rs 


(7) 


The  cost  is  also  evaluated  for  n  corresponding  to  the  critical  case  (attrition 
equal  to  removal  rate').  This  value  of  n  ,  ncr»  often  gives  the  minimum 


1.  There  is  no  reason  to  exceed  the  data  reduction  capabilities  of  the 
intelligence  system  but  there  is  always  pressure  for  the  maximum  amount  of 
intelligence  possible. 
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cost,  n cr  may  be  found  by  multiplying  equation  (1)  by  (1-Pg  ),  the 
probability  of  loss  of  a  ready  vehicle  on  the  first  day  assuming  a  sortie  rate 
of  r  .  This  gives  the  losses  for  the  first  day,  which  in  the  critical  case 
equals  t\  .  Solving  the  resulting  equation  for  nrr  gives 


Eo<1-ps>(1-%  > 


p  PslPrPcl»  *  ds  -  dSPs  5  -  Ps 


r  /d-d 


(Vas)) 


2.2  THE  EQUATIONS  FOR  THE  CONSTANT  LEVEL  OF  EFFORT  CASE 


Assuming  the  constant  rate  EQ/dQ  subtasks  each  day,  equation  (11  is 
simplified.  This  can  most  readily  be  seen  by  considering  the  job  done  the 
first  day,  viz.,  EQ/do  =  eQ,  and  setting  dQ  =  1.  Since  eQ  can  be 
done  without  removing  vehicles  from  storage,  d^  =  0  and 


ieo  U-V 


p  si  r  cl 


E  (1-P  ) 
o  _  s 

PPslPrPcldo 


In  the  constant  rate  case,  equation  (4)  remains  unchanged;  however,  the  value 
of  n  must  be  calculated.  Since  the  number  of  ready  vehicles  attrited  is  simply 


"cr  ’  d-ps  )<Nr) 


E  (1-P  ) 
o'  s 


si1  r  cl  o 


that  many  vehicles  must  be  removed  from  storage  each  day.  The  same  result  is 
obtainable  from  equation  (8)  by  setting  d$  =  dQ  -  1. 

The  equations  presented  allow  the  total  vehicles  required  to  do  EQ  in 
dQ  days  to  be  determined  by  summing  equations  (1)  and  (4)  or  (9)  and  (4)  in 
the  case  of  a  constant  daily  job.  Additionally,  equations  (5)  and  (6)  give 
the  maximum  launch  rate  required  which  is  equal  to  the  maximum  necessary 
recovery  rate.  (Equal  launch  and  recovery  rates  are  desirable  from  common 
sense  arguments.)  This  information  is  necessary  input  to  the  cost  equations 
presented  in  the  next  section. 
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3.  THE  COST  EQUATIONS 


The  COEFUV  cost  equations  for  unmanned  vehicles  are  presented  in  this  sec¬ 
tion.  These  equations  were  developed  at  the  Directorate  of  Aerospace  Studies 
to  provide  an  orderly  method  for  considering  all  cost  elements  associated  with 
unmanned  vehicles.  They  are  based  on  the  ARPV  operational  concepts  of  Boeing 
and  Rockwell,  but  should  be  general  enough  to  cover  almost  any  cases  of 
unmanned  vehicle  operation.  The  eight  areas  considered  for  costing  in  the 
model  are: 

1.  Vehicle 

2.  Operating  location  (areas  not  specifically  covered  elsewhere) 

3.  Launch 

4.  Recovery 

5.  Maintenance 

6.  Operations 

7.  Vehicle  storage 

8.  Training 

The  general  form  of  the  equations  describing  the  various  areas  are: 

Vehicle: 

COST  *  [  VEHICLES]  +  [SPARES]  +  [  RDT&E]  +[  PAYLOAD]  . 

Operating  Location: 

COST  =  [SECURITY]  +  [PAYLOAD  STORAGE  FACILITIES]  +  [LOCATION  START-UP]. 


Launch: 

COST  -[ PERSONNEL]  +  [EQUIPMENT]  +  [RDT&E]  . 

Recovery,  Maintenance,  Operations,  Storage,  Training: 

COST  =  [PERSONNEL]  +[ FACILITIES]  +[  EQUIPMENT]  +  [RDT&E]  . 


Each  equation  is  presented  below  with  a  definition  of  each  quantity 
appearing  in  it.  All  equations  are  based  on  providing  a  10  year  cost  for  the 
area  in  question.  A  very  brief  discussion  of  each  equation  is  given  to 
provide  assistance  in  understanding  the  basis  of  each  term.  For  clarity  and 
brevity,  the  equations  are  presented  with  their  original  symbology.  The  vari¬ 
able  names  assigned  in  the  program  are  generally  close  derivatives  of  the 
original  symbol.  Quantities  expressing  rates  are  indicated  with  a  dot  symbol¬ 
izing  a  derivative.  Quantities  marked  with  asterisks  are  obtained  from  the 
evaluation  of  the  theoretical  equations  discussed  in  the  previous  section. 
Quantities  marked  with  t  are  calculated  from  other  equations  in  the  program. 
The  derivation  of  some  of  these  quantities  are  discussed.  The  notation []+ 
designates  the  next  greater  integer.  It  is  used  in  evaluating  facility, 
equipment,  and  personnel  costs  in  those  cases  where  the  amount  being  purchased 
must  be  treated  in  discrete  units.  It  is  part  of  the  methodology  of  the  pro¬ 
gram  to  always  buy  complete  equipment  sets  and  facilities  whenever  a  frac¬ 
tional  part  is  indicated.  However,  the  corresponding  fractional  crews  which 
are  indicated  are  not  increased  to  the  next  whole  crew,  but  the  number  of  men 
indicated  by  the  fraction  is  increased  to  the  next  whole  man.1 2  These 
choices  are  not  necessarily  the  most  realistic  in  all  situations,  but  they 
represent  a  compromise  which  appears  better  than  the  alternatives.  All 
costs  are  given  in  millions  of  dollars  or  millions  of  dollars  per  unit  except 
the  mission  payload  storage  cost  which  is  given  in  dollars  per  pound. 

A  discussion  following  the  presentations  of  the  individual  equations  indi¬ 
cates  the  method  by  which  the  final  cost  is  assembled  in  the  program. 


1.  This  technique  is  exemplifed  by 

[(men/crew) ( events/hr) *  (events/hr/crew)] +  =[men]+ 
rather  than  the  alternative 

(men/crew)  [(events/hr)  * (events/hr/crew)] +  =  (men/crew)  [crews] + 

2.  If  the  crew  sizes  are  small,  the  nature  of  the  compromise  is  relatively 
unimportant  since  it  will  not  drive  costs.  If  crew  sizes  are  large,  then 
costs  will  be  strongly  affected  by  the  compromise  adopted,  with  the  one  selec¬ 
ted  seeming  the  most  reasonable  to  the  authors. 
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3.1  VEHICLE  COSTS 


CVT  3  [VEHICLES]  ♦  [SPARES]  +  [RDT&E]  +  [PAYLOAD] 


jml  r  r 

1  r  E 

J^VT^Vl^VT*  ^TV^  J  +  pv2^VT  +  ^ 

V3j  +  [CV4NVT+CV5  x 

where 

Cv^  3  theoretical  first  vehicle  unit  cost  ($M). 

C^2  =  10-year  spare  and  special  maintenance  cost  per  vehicle 

(SM/vehicle) . 

Cyj  *  RDT&E  cost  for  vehicles  ($M). 

Cy4  *  recoverable  payload  cost  per  vehicle  ($M/vehicle). 

Cv5  *  expendable  payload  cost  per  sortie  ($M/sortie). 

Eq  3  total  number  of  successful  events  to  be  accomplished  in  dQ 

days  (events). 

*NVT  =  total  vehicles  purchased  minus  training  vehicles  (vehicles). 
*NyV  =  number  of  training  vehicles  (vehicles). 

y  3  learning  curve  slope. 

tx  =  expected  number  successful  events  accomplished  per  sortie* 

(events/sortie). 

1.  A  is  derived  from  p  (see  section  2)  by  consideration  of  attrition. 


The  first  term  of  the  vehicle  cost  equation  gives  the  cost  of  the  opera¬ 
tional  vehicles.  It  does  not  include  the  cost  of  the  training  vehicles  which 
are  accounted  for  in  the  training  costs.  The  per  vehicle  cost  is  based  on  a 
log-linear  cumulative  average  curve^1  which  gives  the  average  cost  of  a 
vehicle  in  a  buy  of  x  vehicles  as 


(1) 


where 


x 

a 

b 


total  vehicles  produced, 
theoretical  first  vehicle  unit  cost. 

where  y  is  the  slope  of  the  learning  curve 


Total  cost  is  generated  by  multiplying  both  sides  of  equation  (1)  by  the 
number  of  vehicles  being  costed,  in  this  case  the  number  of  operating 
vehicles.  Note  that  the  x  of  equation  (1)  includes  the  training  vehicles 
since  the  average  cost  is  based  on  the  total  buy. 


The  payload  term  embodies  the  assumption  that  recoverable  payloads  are 
purchased  on  a  one-for-one  basis  with  vehicles  and  that  only  enough  expendable 
payloads  are  purchased  to  do  EQ. 


1.  A  good  discussion  of  learning  curve  theory  is  given  in  Boren,  H.  E.,  and 
H.  G.  Campbell,  Learning-Curve  Tables:  Volume  I,  55-69  Percent  Slopes,  The 
Rand  Corporation,  April  1970,  RM-6191-PR. 


3.2  OPERATING  LOCATION  COSTS 


Csu  =  [SECURITY]  +  [PAYLOAD  STORAGE  FACILITIES]  +  [START-UP] 


where 


Cji  »  10-year  cost  per  man  for  security  personnel  including  overhead 
for  command,  support,  and  administrative  personnel  ($M/man). 


nSEC 

MLBS 


=  10-year  cost  per  pound  for  storing  mission  payload  ($/lb). 

=  initial  cost  to  start-up  one  operating  location  ($M). 

=  number  of  security  personnel  per  operating  location  (men). 

=  pounds  of  mission  payload  per  sortie  (lb). 

=  total  number  of  successful  subtasks  to  be  accomplished  in  dQ 
days. 


t  X  =  expected  number  of  successful  events  to  be  accomplished  per 

sortie  (events/sortie). 

The  operating  location  costs  are  composed  of  costs  not  more  appropriately 
given  in  other  categories.  Each  cost  is  on  a  per  operating  location  basis. 


3.3  LAUNCH  COSTS 


CL  =  [PERSONNEL  COST]  +  [EQUIPMENT  COST]  +  [RDT&E] 


where 

Cli  =  10-year  cost  per  man  for  launch  personnel  including 

overhead  for  command,  support,  and  administrative  personnel 
($M/man) . 

CL2  =  10-year  cost  of  ownership  of  a  launcher  including  spares  and 
redundancy  ($M/1 auncher) . 

CL3  =  10~year  cost  oir  ownership  of  launcher  accessories  including 
spares  and  redundancy  ($M/accessory) . 

CL4  =  10-year  cost  of  ownership  of  a  set  of  mobile  launch  handling 
equipment  including  spares  and  redundancy  ($M/mobile  launch 
handling  equipment). 

CLs  =  RDT&E  cost  for  launcher  equipment  ($M). 

nLC  =  number  of  people  per  launch  crew  (men/crew). 

nLC  =  launch  rate  per  launch  crew  (vehicles/hr/crew). 

nLCC  =  num^er  per  launch  control  crew  (men/crew). 
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=  vehicle  control  rate  per  launch  control  crew 
(vehicles/hr/crew) . 

=  number  of  launchers  serviced  by  each  set  of  launcher 
accessories  ( 1 auncher/accessory) . 

3  maximum  required  launch  rate  per  operating  location 
(vehicles/hr) . 

=  launch  rate  per  launcher  (vehicles/hr/launcher) . 

=  number  of  vehicles  launched  per  hour  per  set  of  mobile  launch 
handling  equipment  (vehicles/hr/mobile  launch  handling 
equipment) . 

=  number  of  shifts  of  launch  personnel  per  day  (shifts/day) . 

3  number  of  operating  locations. 

The  equation  for  launch  costs  gives  the  launch  costs  per  operating  loca¬ 
tion.  The  quantity  CL5  representing  the  total  RDT&E  costs  must  consequently 
be  divided  by  the  number  of  operating  locations.  It  should  be  noted  that  S, 
the  number  of  shifts  of  launch  personnel,  is  normally  calculated  as 

S  «  max(l,  T0/T$) 

where 

Tq  =  number  of  operating  hours  per  day  (input  as  TO) 
and 

T$  3  number  of  hours  per  shift  (input  as  TS). 


nLCC 

nLS 

hnax 

mhe 

t  s 
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This  formulation  is  correct  in  the  case  where  maximum  launch  rate  is 
established  by  the  job  to  be  done,  EQ.^  However,  the  maximum  launch  rate 
may  be  established  by  the  need  to  form  a  raid  in  a  given  time  (see  the  defini¬ 
tions  of  the  inputs  RAID  and  TMASS  in  section  4).  In  this  case,  the  instan¬ 
taneous  launch  rate  required  may  be  higher  than  the  average  launch  rate 
dictated  by  E  .  This  causes  the  program  to  adjust  Tq  downward  to  account 
for  the  higher  launch  rate.  This  adjustment  is  noted  in  the  program  output 
and  applies  also  to  recovery  and  operations  costing. 

3.4  RECOVERY  COSTS 

CR  ■  [PERSONNEL  COST]  +  [FACILITY  COST]  +  [EQUIPMENT  COST]  +  [RDT&E] 


where 


CRj  =  10-year  cost  per  man  for  recovery  personnel  including  overhead 
for  command,  support,  and  administrative  personnel  ($M/man). 


CR2  3  10-year  cost  of  ownership  of  recovery  area  ($M/area). 

CR3  3  10-year  cost  of  ownership  of  recovery  accessories  including 

spares  and  redundancy  ($M/accessory) . 


1.  For  a  job  E0  and  a  particular  strategy  of  removing  vehicles  from  storage 
to  do  E0  in  d  days,  there  is  a  corresponding  maximum  number  of  launches 
required  on  at  least  one  day  (see  section  2,  equations  (5)  and  (6)). 


k1--* 


'R4 


H5 


’RC 


'RC 


RCC 


RCC 


=  10-year  cost  of  ownership  of  mobile  recovery  handling 

equipment  including  spares  and  redundancy  ($M/mobile  recovery 
handling  equipment). 

=  RDT&E  cost  for  recovery  equipment  ($M). 

=  number  of  people  per  recovery  crew  (men/crew). 

=  recovery  rate  per  recovery  crew  (vehicles/hr/crew) . 

=  number  of  people  per  recovery  control  crew  (men/crew). 

=  vehicle  control  rate  per  recovery  control  crew 
( vehicles/hr/crew) . 


n 


RS 


=  number  of  recovery  areas  serviced  by  each  set  of  accesories 
(recovery  areas/accessory). 


maximum  required  launch  rate  per  operating  location 
(vehicles/hr) . 


M 


RE 


number  of  vehicles  per  hour  serviced  per  unit  of  mobile 
handling  equipment  (vehicles/hr/mobile  recovery  handling 
equipment) . 


r  =  recovery  rate  per  recovery  area  (vehicles/hr/area). 

S  *  number  of  shifts. 


t  NqL  =  number  of  operating  locations. 


As  with  launch  costs,  RDT&E  recovery  costs  are  input  as  a  total  cost  and 
must  be  divided  by  the  number  of  operating  locations  so  that  they  are  reflect¬ 
ed  only  once  in  the  final  recovery  cost.  All  other  aspects  of  recovery  costs 
are  based  upon  meeting  the  maximum  recovery  rate. 
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3.5  MAINTENANCE  COSTS 


Cu  =  [PERSONNEL  COST]  +  [FACILITY  COST]  +  [EQUIPMENT  COST]  +  [RDT&E] 
M 


+ 

+ 

+ 

|"nMCLmaxl 

,  fnMCRRMRLmax 

+  r 

f"  **  max  1  1 

ftMC 

L  J 

nMCR 

- 

M2L  nRF  J  J 

+ 

.  + 

f  r  L 

rL  ,  1  I  rCMC 

r  max 

.  1 

+  r  f  Jn«  +  J!L 

L  “  L  nTR 

J 

CMaLnRE  J  J  KJ 

where 

CMi  =  10-year  cost  per  man  for  maintenance  personnel  which  includes 
an  overhead  factor  for  command,  support,  and  administrative 
personnel  ($M/man). 

CM2  3  10-year  cost  of  maintenance  facilities  to  maintain  a  given 
launch  rate  per  crew  ($M/facility/crew) . 

C^  =  10-year  cost  of  turnaround  equipment  for  a  given  turnaround 

rate  per  crew,  including  spares  and  redundancy  ($M/turnaround 
equipment  set /crew). 


CM4  =  10-year  cost  of  repair  equipment  to  maintain  a  given  repair 
rate  per  crew,  including  spares  and  redundancy  ($M/repair 
equipment  set/crew). 


CM5  =  cost  ^or  maintenance  equipment  ( $/M ) . 


nM(.  *  number  of  people  per  turnaround  crew  (men/crew). 

s  turnaround  rate  per  turnaround  crew  (vehicles/hr/crew). 


nMCR 


=  number  of  people  per  repair  crew  (men/crew). 


i 

I 
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repair  rate  per  repair  crew  ( vehicles/hr/crew) . 


=  numbe-"  of  vehicles/hr  in  repair  serviced  by  repair  equipment 
set  ( vehicles/hr/repair  equipment  set/crew). 

n^p  =  number  of  vehicles/hr  handled  per  maintenance  facility 
( vehicles/hr/f aci 1 ity/crew) . 

nT£  =  number  of  vehicles/hr  in  turnaround  serviced  by  turnaround 
equipment  set  ( vehicles/hr/turnaround  equipment  set/crew). 

*  L_,v  =  maximum  required  launch  rate  per  operating  location 

uiaX 

(vehicles/hr) . 

Rmr  =  ratio  of  returning  vehicles  needing  repair  to  total  returning 
vehicles. 

SM  =  number  of  shifts  of  maintenance  personnel. 

Maintenance  personnel  costs  are  based  on  the  turnaround  and  repair 
functions.  Each  vehicle  recovered  must  be  processed  by  a  turnaround  crew 
before  being  sent  out  again.  In  addition,  some  vehicles  must  be  repaired 
before  going  through  turnaround.  The  fraction  of  returning  vehicles  requiring 
repair  is  given  by  R^R.  The  turnaround  and  repair  functions  involve 
entirely  different  personnel.  The  quantity  SM,  the  number  of  shifts  of 
maintenance  personnel  (turnaround  and  repair)  required,  is  given  by 


=  VTs 


where 


=  length  of  a  maintenance  day  in  hours  (input  as  TM), 


number  of  hours  per  shift  (input  as  TS). 


Maintenance  facility  and  equipment  costs  are  based  on  the  quantity  of 
facilities  and  equipment  needed  to  handle  the  maximum  launch  rate. 

3.6  OPERATIONS  COST 

CQ  =  [PERSONNEL  COST]  +  [FACILITY  COST]  +  [EQUIPMENT  COST]  +  [RDT&E] 


where 


C 


01 


„  <•  fn0CTc  'max]  ] 

-f 

+ 

r  rLmaxT"  ] 

+r~ 1 

C01S  „  J 

L  1  \)C  J 

LH  of  j  j 

L°03  Lsr--1  J 

1  KlJ 

=  10-year  cost  per  man  for  operations  personnel  which  includes 
an  overhead  factor  for  command,  support,  and  administrative 
personnel  (SM/man). 

=  10-year  cost  of  a  unit  of  operations  facilities  ( $M/f ac i 1 i ty ) . 

=  10-year  cost  of  a  unit  of  operations  equipment  including 
spares  and  redundancy  ($M/equipment) . 


CQ4  =  RDT&E  cost  for  operations  equipment  ( $M) . 

ngc  =  number  of  people  per  operations  crew  (men/crew). 

nQC  =  number  of  vehicles  controlled  simulataneously  per  operations 

crew  (vehicles/crew). 

*  l  =  maximum  required  launch  rate  per  operating  location 

niaX 

(vehicles/hr) . 


O0  =  vehicles/hr  serviced  per  unit  of  operations  equipment 
(vehicles/hr/equipment) . 


Op  =  vehicles/hr  serviced  per  unit  of  operations  facility 
(vehicles/hr/facility) . 
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=  average  time  a  vehicle  is  controlled  per  sortie  (hrs). 
t  S  =  number  of  shifts. 


Each  vehicle  is  controlled  or  monitored  for  a  period  after  takeoff  and 
prior  to  landing.  It  is  the  job  of  the  operations  personnel  to  perform  this 
function,  and  the  number  of  people  required  to  do  this  is  used  to  determine 
the  total  number  of  operations  personnel.  However,  operations  people  also 
perform  other  jobs  such  as  mission  planning  which  must  be  done  in  parallel 
with  the  control.  This  fact  must  be  reflected  in  n^,  the  number  of  people 
per  operations  crew. 

As  with  launch,  recovery,  and  maintenance  costs,  numbers  of  personnel, 
facilities,  and  equipment  are  determined  by  the  maximum  launch  rate. 

3.7  VEHICLE  STORAGE  COSTS 

Cs  =  [PERSONNEL  COST]  +  [FACILITY  COST]  +  [EQUIPMENT  COST]  +[RDT&E] 


where 

Cc 


+ 

..  I  ,  rnSCrts]  1  .  r CS2N\ 

'  Lsi  "urJJ 
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10-year  cost  per  man  for  storage  crew  including  overhead  for 
command,  support,  and  administrative  personnel  ($M/man). 

10-year  cost  of  building  to  store  one  vehicle  in  the  "not 
ready"  condition  ($M/vehicle). 


10-year  cost  of  building  to  store  one  vehicle  in  the  "ready" 
condition  ($M/vehicle) . 

10-year  cost  of  mobile  handling  equipment  including  spares  and 
redundancy  for  one  crew  (SM/crew). 
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nsc 
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RDT&E  cost  for  vehicle  storage  ($M). 

number  of  people  per  storage  retrieval  crew  (men/crew). 

removal  rate  from  storage  per  storage  retrieval  crew 
(vehicles/hr/crew) . 

required  removal  rate  Der  operating  location  f vehicles/hr) . 
number  of  operating  locations. 

total  vehicles  stored  at  all  operating  locations  (vehicles). 

total  vehicles  in  ready  condition  stored  at  all  operating 
locations  (vehicles). 

number  of  shifts  of  maintenance  personnel. 


The  vehicle  storage  cost  equation  applies  to  a  single  operating  loca¬ 
tion.  Costs  are  based  on  the  maximum  rate  at  which  vehicles  must  be  removed 
from  storage  and  the  number  of  vehicles  stored  and  ready  in  peacetime.  The 
most  demanding  requirement  for  people  occurs  when  vehicles  are  being  removed 
from  storage.  Hence,  this  function  drives  the  personnel  cost.  Facility  cost 
is  dependent  upon  the  cost  of  facilities  required  to  maintain  vehicles  either 
in  storage  or  in  a  ready  condition.  Equipment  cost  like  personnel  cost  is 
driven  by  the  maximum  required  rate  of  removing  vehicles  from  storage. 


3.8.  TRAINING  COST 


CT  =  [PERSONNEL  COST]  +  [FACILITY  COST]  +  [EQUIPMENT  COST]  +[RDT&E] 


=  [  ct1raptnpt  +  cT2ptnpt]  +  [coffrac]  + 

logY 

[FRAC(C^£  +  Cp£  +  C|^£  +  CgF)  +  N-j-yCy^Nyy  +  Nyy)  ^  ]  +  ^Cyg] 
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where 


r 

T1  =  10-year  cost  per  man  for  instructor  personnel  including 

overhead  for  command,  support,  and  administration  ($M/man). 

CT2  =  10-year  cost  per  man  for  pipeline  trainees  including  overhead 
for  command,  support,  and  administration,  plus  the  cost  of 
travel  to  training  center  and  to  theater  ($M/man). 

C-j.3  =  RDT&E  cost  for  training  ($M). 

CLE’  CRE’  CME*  C0E  =  cost  launch»  recovery,  maintenance,  and 

operations  equipment  per  operating  location  ($M). 

Cgp  =  cost  of  facilities  for  operations  per  operating  location  ($M). 
=  first  unit  vehicle  cost  ($M). 

FRAC  =  ratio  of  training  operating  location  manning  to  operating 
location  manning. 

Y  =  learning  curve  coefficient. 

Npj  =  total  number  of  mission  personnel  for  launch,  recovery, 

maintenance,  storage,  and  operations  per  operating  location 
(men) . 

NjV  *  number  of  training  vehicles  purchased  (vehicles). 

Pj  =  percent  of  total  manpower  in  training  at  one  time. 

Ra  =  instructor/student  ratio. 

The  training  costs  are  based  generally  on  the  assumption  that  the  train¬ 
ing  operation  is  a  scaled  down  version  of  an  actual  operating  location.  This 
is  clearly  seen  in  the  facility  costs  and  the  first  term  of  the  equipment 
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costs  where  a  fraction  of  the  corresponding  operating  location  cost  is  used. 
The  fraction  is  simply  the  ratio  of  the  number  of  people  in  training  to  the 
number  manning  an  operating  location.  The  personnel  cost  is  based  on  instruc¬ 
tor  personnel  costs  plus  student  personnel  costs  including  travel.  The  number 
of  instructors  is  determined  by  the  instructor/student  ratio. 

The  number  of  training  vehicles  purchased  is  calculated  from  the  equation 


FRAC  x  L, 


max 


TV 


TR 


1  +  10  PL  x  TT  x  NEX1 


where 

*  *"max  3  rnaxin,um  required  launch  rate  per  operating  location 
(vehicles/hour). 

PR  =  probability  that  a  vehicle  does  not  abort  due  to  a  system 
failure. 


PL  =  number  of  training  vehicles  lost  per  hour  of  training  vehicles 
flight  (losses/hour). 

TT  =  number  of  flying  hours  per  training  exercise  (hours/exercise). 

NEX1  =  number  of  training  exercises  per  year  (exercises/year). 


The  10  which  appears  accounts  for  the  10  years  which  are  being  costed. 


An  understanding  of  the  training  vehicle  cost  term  may  be  obtained  from  the 
discussion  of  the  vehicle  cost  equation  in  section  3.1. 


3.9  SYSTEM  COST 


All  the  cost  equations  except  those  for  vehicle  and  training  costs  apply 
to  a  single  operating  location.  The  system  cost  must  take  into  account  the 
costs  for  all  operating  locations.  The  final  cost  equation  becomes 
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TOTAL  COST  =  [VEHICLES]  +  NQLj[OPERATING  LOCATION]  +  [LAUNCH]  + 
[RECOVERY]  +  [MAINTENANCE]  +  [OPERATIONS]  +  [VEHICLE 
STORAGE] |  +  [TRAINING] 


where  N^  is  the  number  of  operating  locations  and  the  brackets  indicate  the 
cost  from  the  equations  just  discussed. 
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4.  INPUT  TO  PROGRAM  COEFUV 


Input  to  program  COEFUV  is  accomplished  entirely  by  punched  cards  which 
are  handled  by  subroutine  INPUT.  Input  cards  fall  into  two  groups:  those 
which  result  in  numerical  and  alphanumerical  data  on  the  cards  being  assigned 
to  variables  in  the  program,  and  those  which  control  various  aspects  of  pro¬ 
gram  flow  with  regard  to  input  and  output.  The  former  group  will  be  discussed 
first.  In  a  limited  number  of  instances  there  will  be  an  interdependence 
between  cards  of  the  two  groups.  These  interdependences  will  be  made  clear  in 
the  definitions  of  the  input  quantities. 

4.1  DATA  INPUTS 

All  input  to  program  COEFUV  is  based  upon  the  function  of  individual 
cards  or  groups  of  cards  being  specified  by  an  alphanumeric  identifier  appear¬ 
ing  on  the  card  or  the  first  card  of  the  group.  For  the  data  inputs  being 
discussed  here,  the  identifier  is  used  to  associate  the  remaining  data  on  the 
card  or  the  data  on  the  following  cards  to  the  appropriate  program  variables. 
This  identifier  begins  in  column  1  and  is  limited  to  a  maximum  of  10  charac¬ 
ters.  It  is  usually  identical  to  the  name  of  the  program  variable  to  be 
defined.  If  the  input  value  appears  on  the  card  with  the  identifier,  it  is 
read  from  an  E20.8  field  beginning  in  column  11.  In  those  instances  when  the 
input  values  appear  on  the  following  cards,  the  data  is  read  with  an  8F10.0 
format  if  numeric  and  an  8A10  format  if  alphanumeric. 

The  inputs  constituting  this  group  are  defined  below.  Most  of  them  are 
related  to  the  cost  equations  of  section  3,  a  lesser  number  to  the  theoreti¬ 
cal  equations  of  section  2.  In  a  few  cases,  the  inputs  relate  to  yet  other 
aspects  of  the  program.  The  use  of  this  last  group  of  inputs  should  be  clear 
from  the  definitions.  The  default  value  of  all  numerical  data  quantities  is 
zero.  The  case  title  is  preset  to  blanks.  The  order  of  these  cards  in  the 
input  deck  is  arbitrary  except  for  the  associated  groups  of  cards  which  must 
appear  together  in  the  proper  order. 

CI1  10-year  cost  per  man  for  security  personnel  including  overhead 

for  command,  support,  and  administrative  personnel  ($M/man). 


CI2  10-year  cost  per  pound  for  storing  mission  payload  ($/pound). 

CI3  Initial  cost  to  start  up  one  operating  location  ($M). 

CL1  10-year  cost  per  man  for  launch  personnel  including  overhead 

for  command,  support,  and  administrative  personnel  (SM/man). 

CL2  10-year  cost  of  ownership  of  a  launcher  including  spares  and 

redundancy  ($M/ launcher). 

CL3  10-year  cost  of  ownership  of  launcher  accessories  including 

spares  and  redundancy  ($M/accessory) . 

CL4  10-year  cost  of  ownership  of  a  set  of  mobile  launch  handling 

equipment  including  spares  and  redundancy  ($M/mobile  launch 
handling  equipment). 

CL5  RDT&E  cost  for  launcher  equipment  ($M). 

CMl  10-year  cost  per  man  for  maintenance  personnel  including 

overhead  for  command,  support,  and  administrative  personnel 
( $M/man ) . 

CM2  10-year  cost  of  maintenance  facilities  to  maintain  a  given 

launch  rate  per  crew  ($M/facility/crew) . 

CM3  10-year  cost  of  turnaround  equipment  for  a  given  turnaround  rate 

per  crew  including  spares  and  redundancy  ($M/turnaround 
equipment  set/crew). 

CM4  10-year  cost  of  repair  equipment  to  maintain  a  given  repair  rate 

per  crew  including  spares  and  redundancy  ($M/repair  equipment 
set/crew) . 

CM5  RDTiE  cost  for  maintenance  equipment  ($M). 
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C01  10-year  cost  per  man  for  operations  personnel  including 

overhead  for  command,  support,  and  administrative  personnel 
( $M/man ) . 

C02  10-year  cost  of  a  unit  of  operations  facilities  ($M/facility). 

C03  10-year  cost  of  a  unit  of  operations  equipment  including  spares 

and  redundancy  ($M/equipment) . 

C04  RDT&E  cost  for  operations  equipment  ($M). 

CR1  10-year  cost  per  man  for  recovery  personnel  including  overhead 

for  command,  support,  and  administrative  personnel  ($M/man). 

CR2  10-year  cost  of  ownership  of  recovery  area  ($M/area). 

CR3  10-year  cost  of  ownership  of  recovery  accessories  including 

spares  and  redundancy  ( $M/ accessory ) . 

CR4  10-year  cost  of  ownership  of  mobile  recovery  handling  equipment 

including  spares  and  redundancy  ($M/mobile  recovery  handling 
equipment). 

CR5  RDT&E  cost  for  recovery  equipment  ($M). 

CS1  10-year  cost  per  man  for  storage  crew  including  overhead  for 

command,  support,  and  administration  ($M/man). 

CS2  10-year  cost  of  building  to  store  one  vehicle  in  the  "not 

ready"  condition  ($M/vehicle) . 

CS3  10-year  cost  of  building  to  store  one  vehicle  in  the  "ready" 

condition  ($M/vehicle) . 

CS4  10-year  cost  of  mobile  handling  equipment  including  spares  and 

redundancy  for  one  crew  ($M/crew). 

CS5  RDT&E  cost  for  vehicle  storage  ($M). 


C 
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10-year  cost  per  man  for  instructor  personnel  including  over¬ 
head  for  command,  support,  and  administration  ($M/man). 

CT2 

10-year  cost  per  man  for  pipeline  trainees  including  overhead 
for  command,  support,  and  administration,  plus  the  cost  of 
travel  to  training  center  and  theater  ($M/man). 

CT3 

RDT&E  cost  for  training  ($M). 

CV1 

Theoretical  first  vehicle  unit  cost  ($M). 

CV2 

10-year  spare  and  special  maintenance  cost  per  vehicle 
($M/vehicle). 

CV3 

RDT&E  cost  for  vehicles  ($M). 

CV4 

Recoverable  payload  cost  per  vehicle  ($M/vehicle). 

CV5 

Expendable  payload  per  sortie  ($M/sortie). 

D 

For  the  cost  optimization  case,  the  number  of  days  in  which  to 
accomplish  EO.  For  the  constant  level  of  effort  case,  the 
total  number  of  days  during  each  of  which  EO  is  to  be  accom- 
pl  i shed . 

DS 

The  number  of  days  unmanned  vehicles  are  removed  from  storage. 

EO 

For  the  cost  optimization  case,  the  total  number  of  subtasks  to 
be  dealt  with  in  0  days.  For  the  constant  level  of  effort 
case,  the  total  number  of  subtasks  to  be  dealt  with  each  day. 

• 

GAMMA 

Learning  curve  slope  for  the  vehicle  cost  equation. 

e 
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INNER 

LDOTE 

MHE 

MINL 

MLBS 

MLOL 

MRE 

NDOTLC 

NDOTLCC 

NDOTMC 

NDOTMCR 

NOOTOC 


Follows  a  CHGD,  CHGOS,  CHGEO,  CHGA,  or  CHGRHO  card  to  designate 
that  0,  DS,  etc.,  is  to  be  varied  in  the  inner  program  loop. 

The  number  in  the  data  field  defines  how  many  values  (150)  of 
the  variable  are  to  be  read  from  the  following  cards  with  for¬ 
mat  8F10.0.  (See  discussion  of  CHGD  in  section  4.2  also.) 

Launch  rate  per  launcher  (vehicles/hour/launcher). 

Number  of  vehicles  launched  per  hour  per  set  of  mobile  launch 
handling  equipment  (vehicles/hour/mobile  launch  handling  equipment). 

The  minimum  number  of  operating  locations  allowed  by  con¬ 
straints  external  to  the  program,  e.g.,  geographic  constraints. 

Pounds  of  mission  equipment  per  sortie  (pounds). 

Maximum  allowable  launch  rate  per  operating  location  based  on 
considerations  exterior  to  the  program  (vehicles/hour). 

Number  of  vehicles  per  hour  serviced  per  unit  of  mobile 
handling  equipment  (vehicle/hour/mobile  recovery  handling 
equipment) . 

Launch  rate  per  launch  crew  (vehicles/hour/crew). 

Vehicle  control  rate  per  launch  control  crew 
(vehicles/hour/crew) . 

Turnaround  rate  per  turnaround  crew  (vehicles/hour/crew). 

Repair  rate  per  repair  crew  (vehicles/hour/crew). 

Number  of  vehicles  controlled  simultaneously  per  operation 
crew  (vehicles/crew). 
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NDOTRC 

NOOTRCC 

NDOTSC 

NEXT 

NI 

NLC 

NLCC 

NLS 

NMC 

NMCR 

NO 

NOC 

NRC 

NRCC 

NRE 


Recovery  rate  per  recovery  crew  ( vehicles/hour /crew) . 

Vehicle  control  rate  per  recovery  control  crew 
(vehicles/hour/crew) . 


Removal  rate  from  storage  per  storage  retrieval  crew 
( vehicles/hour/crew) . 

Number  of  full  scale  training  exercises  per  year. 

Number  of  inner  loop  variations.  (See  discussion  in  section 
4.2  also.) 

Number  of  people  per  launch  crew  (men/crew). 

Number  of  people  per  launch  control  crew  (men/crew). 

Number  of  launchers  serviced  by  each  set  of  launcher  acces¬ 
sories  (launchers/accessory). 

Number  of  people  per  turnaround  crew  (men/crew). 

Number  of  people  per  repair  crew  (men/crew). 

Number  of  outer  loop  variations.  (See  discussion  in  section 
4.2  also.) 

Number  of  people  per  operations  crew  (men /crew). 

Number  of  people  per  recovery  crew  (men/crew). 

Number  of  people  per  recovery  control  crew  (men/crew). 

Number  of  vehicles  per  hour  in  repair  serviced  by  a  repair 
equipment  set  (vehicles/hour/repair  equipment  set/crew). 
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NRF  Number  of  vehicles  per  hour  handled  per  maintenance  facility 

(vehicles/hour/f aci 1 ity/crew) . 

NRS  Number  of  recovery  areas  serviced  by  each  set  of  accessories 

(recovery  areas/accessory). 

NSC  Number  of  people  per  storage  retrieval  crew  (men/crew). 

NSEC  Number  of  security  personnel  per  operating  location  (men). 

NTR  Number  of  vehicles  per  hour  in  turnaround  serviced  by  a  turn¬ 

around  equipment  set  (vehicles/hour/equipment  set). 

ODOTE  Number  of  vehicles  per  hour  serviced  per  unit  of  operations 
equipment  (vehicles/hour/equipment) . 

ODOTF  Number  of  vehicles  per  hour  serviced  per  unit  of  operations 
facility  (vehicles/hour/facility). 

OUTER  Follows  a  CHGD,  CHGDS,  CHGEO,  CGHA,  or  CHGRHO  card  to  designate 
that  0,  DS,  etc.,  is  to  be  varied  in  the  outer  program  loop. 

The  number  in  the  data  field  defines  how  many  values  (  <50 )  of 
the  variable  are  to  be  read  from  the  following  cards  with  for¬ 
mat  8F10.0.  (See  discussion  of  CHGD,  etc.,  in  section  4.2 
also. ) 

PC  Probability  that  a  vehicle  is  not  lost  on  'a  mission  due  to  a 

system  failure.  Contrast  with  PR. 

PL  Training  vehicles  lost  per  hour  of  training  vehicle  flight. 

PLS  Prelaunch  survival  probability  per  day. 

PR  Probability  that  a  vehicle  does  not  abort  due  to  a  system 

failure.  Contrast  with  PC. 


PSS  Total  ingress/egress  probability  of  survival  relative  to  area 

defenses.  Note  that  if  attrition  is  being  varied  under  control 
of  CHGA  that  PSS  has  no  effect.  Both  area  and  terminal  attri¬ 
tion  are  contained  in  the  values  following  CHGA. 

PT  Percent  of  total  operational  manpower  in  training  at  one  time. 

RA  Instructor  to  student  ratio  used  in  training  costing. 

RAID  For  the  cost  optimization  case,  the  desired  raid  size;  auto¬ 
matically  set  to  one  for  the  constant  level  of  effort  case. 

RDOTE  Recovery  rate  per  recovery  area  (vehicles/hour/area). 

RHO  The  number  of  subtasks  dealt  with  by  a  single  sortie  given  that 

it  arrives  "on  target." 

RMR  Ratio  of  returning  vehicles  needing  repair  to  total  returning 

vehicles. 

RS  Vehicle  sortie  rate  (sorties/day) . 

TC  Average  time  an  unmanned  vehicle  is  under  control  of  an  opera¬ 

tions  controller  (hours). 

TCYCIE  The  number  of  training  cycles  per  year. 

TITLE  Case  title.  The  following  card  contains  the  case  title  which 
will  be  read  with  an  8A10  format. 

TM  Length  of  a  maintenance  day  (hours). 

TMASS  The  time  required  to  assemble  a  raid  of  unmanned  vehicles  into 
a  group  of  size  RAID  (hours). 
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TO  The  length  of  the  operational  day  fhours). 

TPS  Total  ingress/egress  probability  of  survival  relative  to  termi¬ 

nal  defenses.  Note  that  if  attrition  is  being  varied  under 
control  of  CHGA  that  TPS  has  no  effect.  Both  area  and  terminal 
attrition  are  contained  in  the  values  following  CHGA. 

TS  Length  of  a  work  shift  (hours). 

TT  Length  of  a  full  scale  exercise  (hours). 

TYPE  =  1  for  the  cost  optimization  case;  =  2  for  the  constant  level 

of  effort  case. 

4.2  CONTROL  INPUTS 

The  control  inputs  determine  printing  options,  indicate  the  end  of  input 
for  cases  and  for  the  run,  and  in  five  instances  specify  input  options.  As 
with  the  data  inputs,  the  function  of  the  card  is  determined  by  the  alpha¬ 
numeric  identifier  appearing  left  justified  in  columns  1-10.  However,  unlike 
the  data  cards,  no  other  data  is  associated  with  the  identifier.  All  but  the 
ENOCASE  and  ENDJOB  identifiers  are  used  to  set  the  values  of  logical  variables 
witnin  the  program.  The  identifiers  occur  in  pairs  with  one  used  to  set  a 
variable  true  and  the  other  false.  Five  pairs  of  control  inputs  are  used  to 
specify  different  printing  options.  These  options  are  illustrated  in  section 
5  which  shows  a  sample  input  deck  and  the  corresponding  output  with  all  pos¬ 
sible  print  statements  employed.  Five  other  pairs  of  identifiers  are  used  to 
alter  the  usual  input  method  for  the  data  inputs  D,  DS,  EO,  RHO,  and  PSS  (see 
definitions  above). 

D,  DS,  EO,  RHO,  and  PSS  are  the  pivotal  parameters  for  investigation  once 
the  cost  inputs  have  been  determined.  They  may  be  entered  as  normal  data 
inputs  as  discussed  earlier,  or  they  may  be  input  as  a  series  of  values  by  use 
of  the  CHGD,  CHGDS,  CHGEO,  CHGRHO,  or  CHGA  cards  in  conjunction  with  the  INNER 
and  OUTER  data  cards  also  defined  above.  When  this  option  is  chosen,  the  pro¬ 
gram  user  may  input  up  to  50  values  of  one  or  two  of  the  five  inputs  at  once. 
These  values  are  then  selected  sequentially  in  the  program  by  two  do- loops. 
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one  parameter  per  do-loop.  One  do-loop  is  logically  within  the  other  and 
hence  called  the  inner  loop.  The  program  logic  is  executed  once  for  each 
value  of  the  parameter  assigned  to  the  inner  loop.  If  a  parameter  is  also 
assigned  to  the  outer  loop,  the  inner  loop  is  completely  executed  for  each 
value  of  the  outer  loop  parameter.  Thus,  if  m  values  of  the  inner  loop  para¬ 
meter  are  input  and  n  values  of  the  outer  loop  parameter  are  input,  m  times  n 
cases  will  be  evaluated.  Return  to  normal  input  is  achieved  by  using  the 
CON STD,  CON STDS,  CONSTEO,  CONSTRHO,  and  CONSTA  cards. 

CHGA  Causes  the  logical  program  variable  CHGA  to  be  set  true,  which 
in  turn  a.ters  the  method  of  inputing  PSS.  CHGA  is  false  by 
default.  See  the  discussion  in  the  text  above.  (See  also 
CONSTA. ) 

CHGD  Causes  the  logical  program  variable  CHGD  to  be  set  true,  which 
in  turn  alters  the  method  of  inputing  D.  CHGD  is  false  by 
default.  See  the  discussion  in  the  text  above.  (See  also 
CON STD.) 

CHGDS  Causes  the  logical  program  variable  CHGDS  to  be  set  true,  which 
in  turn  alters  the  method  of  inputing  DS.  CHGDS  is  false  by 
default.  See  the  discussion  in  the  text  above.  (See  also 
CONSTDS.) 

CHGEO  Causes  the  logical  program  variable  CHGEO  to  be  set  true,  which 
in  turn  alters  the  method  of  inputing  EO.  CHGEO  is  false  by 
default.  See  the  discussion  in  the  text  above.  (See  also  CONSTEO.) 

CHGRHO  Causes  the  logical  program  variable  CHGRHO  to  be  set  true, 
which  in  turn  alters  the  method  of  inputing  RHO.  CHGRHO  is 
false  by  default.  See  the  discussion  in  the  text  above.  (See 
also  CONSTRHO.) 

CONSTA  Causes  the  logical  program  variable  CHGA  to  be  set  false,  which 
in  turn  alters  the  method  of  inputing  PSS.  CHGA  is  false  by 
default.  See  the  discussion  in  the  text  above.  (See  als. 

CHGA. ) 
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CONSTD  Causes  the  logical  program  variable  CHGD  to  be  set  false,  which 
in  turn  alters  the  method  of  inputing  D.  CHGD  is  false  by 
default.  See  the  discussion  in  the  text  above.  (See  also  CHGD.) 

CONSTDS  Causes  the  logical  program  variable  CHGDS  to  be  set  false, 

which  in  turn  alters  the  method  of  inputing  DS.  CHGDS  is  false 
by  default.  See  the  discussion  in  the  text  above.  (See  also 
CHGDS. ) 

CONSTEO  Causes  the  logical  program  variable  CHGEO  to  be  set  false, 

which  in  turn  alters  the  method  of  inputing  EO.  CHGEO  is  false 
by  default.  See  the  discussion  in  the  text  above.  (See  also 
CHGEO. ) 

CONSTRHO  Causes  the  logical  program  variable  CHGRHO  to  be  set  false, 
which  in  turn  alters  the  method  of  inputing  RHO.  CHGRHO  is 
false  by  default.  See  the  discussion  in  the  text  above.  (See 
also  CHGRHO.) 

COSTS  Causes  the  logical  program  variable  COSTS  to  be  set  true,  which 
in  turn  results  in  the  cost  subroutine  being  exercised  and  the 
results  printed.  COSTS  is  true  by  default.  (See  also  NOCOSTS.) 

DATA  Causes  the  logical  program  variable  DAT1  to  be  set  true,  which 
in  turn  causes  the  inputs  discussed  in  the  previous  subsection 
to  be  printed  for  each  case.  DAT1  is  true  by  default.  (See 
al so  NODATA. ) 

DEBUG  Causes  the  logical  program  variable  DEBUG  to  be  set  true,  which 
in  turn  results  in  the  printing  of  various  intermediate  results. 
DEBUG  is  false  by  default.  (See  also  NODEBUG.) 

ENDCASE  The  last  card  of  each  case;  used  to  terminate  input  for  a  case. 

END JOB  The  last  card  of  a  data  deck;  used  to  terminate  a  run. 
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NOCOSTS 


NODATA 


NODEBUG 


NOPRINT 


PRINT 


PRINTOFF 


1 


Causes  the  logical  program  variable  COSTS  to  be  set  false, 
which  in  turn  suppresses  cost  output.  COSTS  is  true  by 
default.  (See  also  COSTS.) 

Causes  the  logical  program  variable  DAT1  to  be  set  false,  which 
in  turn  suppresses  printing  of  the  inputs  discussed  in  the  pre¬ 
vious  subsection.  DATl  is  true  by  default.  (See  also  DATA.) 

Causes  the  logical  program  variable  DEBUG  to  be  set  false, 
which  in  turn  suppresses  the  printing  of  various  intermediate 
results.  DEBUG  is  false  by  default.  (See  also  DEBUG.) 

Causes  the  logical  program  variable  PRINT  to  be  set  false, 
which  in  turn  causes  the  suppression  of  printing  of  results  for 
each  value  of  DNS  in  the  cost  optimization  case.  PRINT  is  true 
by  default.  (See  also  PRINT.) 

Causes  the  logical  program  variable  PRINT  to  be  set  true,  which 
in  turn  causes  the  printing  of  results  in  the  cost  optimization 
case  for  each  value  of  DNS.  PRINT  is  true  by  default.  (See 
also  NOPRINT.) 

Causes  the  logical  program  variable  PRTOFF  to  be  set  true, 
which  in  turn  causes  the  suppression  of  printing  of  various 
intermediate  results.  PRTOFF  is  false  by  default.  (See  also 
PR INTON.) 


PRINTON  Causes  the  logical  program  variable  PRTOFF  to  be  set  false, 
which  in  turn  causes  the  printing  of  various  intermediate 
results.  PRTOFF  is  false  by  default.  (See  also  PRINTOFF.) 


5.  SAMPLE  INPUTS  AND  OUTPUTS 


This  section  illustrates  some  examples  of  program  input  and  output  to 
assist  the  user.  Pages  have  been  reproduced  from  a  sample  cost  optimization 
case  (TYPE=1)  in  figures  3-7  and  a  sample  constant  level  of  effort  case 
(TYPE=2)  in  figures  8-11. 

Fiqure  3  shows  the  input  values  as  printed  by  the  program.  Inputs 
are  organized  by  category  for  easy  reference.  The  symbols  <  and  Tare  used 
to  indicate  (1)  whether  or  not  specific  variables  were  defined  for  this  case 
(a  corresponding  input  card  actually  read)  or  (2)  whether  the  variable  has  not 
been  defined  at  all.  The  absence  of  either  symbol  indicates  it  was  previously 
defined  for  another  case.  This  page  is  printed  unless  a  NODATA  card  has  been 
read . 

Figure  4  shows  a  summary  of  some  important  inputs  as  well  as  some  inter¬ 
mediate  calculations.  The  name  of  the  output-controlling  logical  variables  are 
identified  in  the  figure.  The  variables  associated  with  the  DEBUG  controlled 
printout  are  not  discussed  in  this  report.  Figure  5  similarly  shows  the  results 
of  intermediate  calculations  including  some  designed  for  debugging.  The  logical 
variables  controlling  the  printing  of  this  information  are  also  shown  in  the 
figure.  Note  that  the  maximum  launch  rate  in  this  case  is  determined  by  the 
raid  size  requirements  rather  than  the  total  launches  required  per  day.  The 
output  page  depicted  in  figure  5  immediately  precedes  the  output  page  depicted 
in  figure  6. 

Figure  6  shows  one  of  the  pages  of  intermediate  cost  results  given  for 
various  values  of  n,  the  retrieval  rate  of  vehicles  from  storage.  This  page 
illustrates  the  retrieval  rate  value  giving  the  minimum  total  cost  for  doing 
the  input  specified  job  (kill  3000  targets  in  15  days).  Although  not  indicated 
in  figures  5  or  6,  this  retrieval  rate  corresponds  to  the  critical  retrieval 
rate,  The  cost  breakout  lists  all  eight  cost  areas  discussed  in  section  3. 

The  printing  of  this  page  is  controlled  by  the  logical  variable  PRINT. 

Figure  7  presents  the  results  for  the  most  cost  effective  option. 


The  last  four  figures,  8-11  show  similar  pages  from  a  TYPE=2  case,  the 
constant  level  of  effort  case.  For  this  case  there  is  only  one  possible 
retrieval  rate,  hence  only  one  set  of  cost  figures.  Print  options  are  similar 
to  a  TYPE=1  case,  although  there  are  no  DEBUG  controlled  outputs  for  a  TYPEa2 
case. 
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values  for  input  variables  p  indicates  the  variable  was  oefineo  for  this  case 

<  INDICATES  the  variable  is  undefined 


u 

CJ 

m 

-J 

a 

w 

m 

►- 

a 

< 

mom 

now 

u  o 

m  x  cj 

m  in 

m 

W  x 

o 

JOJ 

(SQCt 

o  a 

X  ^  X 

in  m 

c  x  *- 

a 

U  Z  Z 

cj  z  z 

z  o 

o  z  z 

«J  u 

u 

tit 

* 

t  t  t 

1 1  t 

t  t 

t  t  t 

t  t 

t, 

o  o  o 

© 

p» 

o  o 

© 

o 

m  so 

o  o 

o 

s 

o 

O 

CO  o 

o  o  o 

« 

—« 

o  o 

in 

o 

o 

o»  -- 

n*  o 

o 

o 

o 

ao 

OD  O 

o  o  o 

a* 

o 

rg  o 

'T 

IS 

o 

CO  OJ 

n  © 

o 

o 

o 

o 

—  o 

•  •  • 

« 

• 

•  • 

• 

• 

• 

•  • 

r  • 

• 

• 

• 

• 

#  1 

oe^ 

O* 

40 

CO 

ffl 

©  —  <M 

o 

n 

—4  . 

CJ 

CJ 

UJ 

UJ 

z 

in 

o 

fr* 

H 

H» 

— 

V) 

ru 

0  O 

<VJ 

CJ 

o 

<\j  n 

(V  o 

X 

(M 

o 

M 

IM 

O  <  X 

-J 

-j 

-j  a 

a 

a 

a 

o  o 

Z  3 

X 

in 

o 

wan 

& 

Z  -1 

CJ 

z 

X 

CJ  CJ 

CJ  z 

X 

CJ 

z 

CJ 

CJ  H- 

t  t  t 

in 

t, 

a 

t  t 

* 

■t 

\ 

t  t 

t  1 

1 

1 

<n 

4 

1  t 

N» 

►- 

z 

z 

UJ 

in 

< 

>- 

u 

X 

w 

z 

^4 

m 

Z 

UJ 

u. 

m 

v>o  o  o  o 

o 

o 

<*> 

o  o 

>~  03 

n 

o 

UOOO 

"-SO 

o  o 

tn  o 

o 

'■Xm 

s  o 

s  o  o 

2  0  0  0  0 

in 

o 

in  a 

r»  o 

Z  <S 

in 

o 

-«oo 

CJ  s  o 

o  o 

M— 

<x> 

o 

UJ 

® 

o 

z 

OIVO 

o  ©  ©  a  © 

o 

►-  -• 

(VI  o 

UJ  — • 

<*4 

o 

u  —  u"i  a 

—  —  © 

o 

o 

Z 

mm 

OJ 

o 

mm 

o 

UJ 

-4  0  0 

u  •  *  «  • 

• 

• 

z  • 

•  • 

• 

• 

M  4  ♦ 

• 

u  ♦  • 

• 

• 

Up 

♦ 

• 

u 

• 

4 

•  44 

con 

— 4 

uj 

—  <o 

u 

40 

u. 

o 

u.  r- 

<30  o 

r* 

o 

u 

o 

m 

u* 

u.  in 

— * 

CJ 

o 

—4 

w 

o 

u» 

w 

o 

in 

m 

u. 

Z 

—4 

u. 

o 

CJ 

U. 

o 

N 

u. 

UJ 

u. 

UJ 

CJ 

u. 

o 

UI 

x 

u. 

o 

1— 

Ui 

o 

UJ 

UJ 

u 

N* 

m 

c 

a 

CJ 

a 

in 

o 

m 

o 

u 

3 

u 

w— 

o 

u 

3 

UJ 

o 

«n 

u 

CJ 

K* 

X 

in 

a 

■■t 

u 

o 

<J 

UJ 

m 

< 

O 

UJ 

tn 

-J 

CJ 

X 

«n 

CJ 

c 

►- 

u 

a  uj  _j 

»-# 

o 

6— 

z 

z 

CJ 

in 

m 

a  o  * 

«j 

m 

o  — 

m  o 

>-  — 

in 

o 

c  — 

<  —  CJ 

u. 

■n 

0— 

o 

X 

o 

—  m 

z  >-  r  <n  -• 

-at 

-J 

-J  o 

X  X 

X 

a 

o  o  o 

211 

X 

z 

uj  in 

cn 

2W  JH 

so  a 

h- 

X  o 

CJ  Z 

U.-  U 

CJ 

z 

KUKU 

U.LZ 

z 

o 

o  c 

z 

«c 

u 

X 

•-i 

cj  a  cj 

< 

CJ 

> 

< 

< 

z 

w  i  t  t  i 

«  1 

t. 

2  1 

t  1 

o  t 

1 

t 

a.  t  i 

t 

2  t  l 

t 

t 

c 

t 

t 

t 

t  t  t 

in 

o 

3 

u 

UJ 

*•*  , 

o 

rnm 

< 

a 

•a 

UJ 

a 

z 

a 

X 

a. 

•J 

a 

o 

X 

in 

vehicle  COST  coefficients 

-  CV|  1.044  P  CV?  .040  P  CV3  123.000  P  CV4  .001 

»  CVS  .004  P  GAMMA  .926 


Figure  5.  Results  of  More  Intermediate  Calculations 
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VALUES  FOR  INPUT  VARIABLES  *  INDICATES  THE  VARIABLE  WAS  DEFINED  FOR  THIS  CASE 

<  INO I  CATES  THE  VARIABLE  IS  UNDEFINED 
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Figure  8.  A  Sample  Input  Case  for  TYPE  =  2 
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APPENDIX 


PROGRAM  CO£FUV( INPUT. OUTPUT) 

THIS  PROGRAM  IS  USED  TO  COMPUTE  THE  SYSTEM  OF  U/V  RFWiRgO  TO  MEET 
A  SPECIFIC  EFFECTIVENESS  AnO  THEN  TO  COMPUTE  THE  COST  OF  T'rlE  SYSTE 
M  fiASEO  ON  OIFFERENT  CONCEPTS  OF  OPERATIONS 


THE  SPECIFIC  EFFECTIVENESS  OF  THE  UV  FORCE  CAN  BE  CHARACTER  IZED  BY 
THE  FOLLOWING 

TYPE  =  <1=STRIX£) , <2=R£CCE! , (3=0£FENSE  SUPPRESSION; 

eo* total  effectiveness  required  which  depends  on  the  mission 

TYPE 

RHO=*nUMB£R  OF  TASKS  ACCOMPLISHED  PER  SUCCESSFUL  SORTIE 
PSS^S ingle  sortie  survival  probability  of  AN  U/V 
raid  *  RAID  size 

RS  ■  INDIVIDUAL  VEHICLE  SORTIE  RATE 
0  *  NUMBER  of  OAYS  AVAILABLE  to  accomplish  MISSION 

IMPLICITREAL (L.M.N) 

INTEGER  MULT.NOL 

integer  NO.NI  - 

common  /change/  no,varyo<5o) .ni.varyiso) 

COMMON  /INPUTS/  TYPE .EO ,0 .OS .RHO.RA ID .RS.TO.TS . TM » TMASS .M 
1L0L.MIML.DUM1 (7) .PR.PLS.PC.PSS.TPS.DUM205) ,CL 1 .CL2.CL3.CL 
2A,CLS.MLC.NOOTLC.NLCC.NOOTI.CCLOOTE.NLS.MHE,DUM3(3)  ,CR1  .CR2.CR 
33.CR**CRS,NRC.NOOTPC»NRCC.NDOTRCC.fiOOTE.NRS.MRE.OUM4 (3) .COl.CO 
“*2  .NOC  .NOO  rCC.TC.C03,  OOOTE  .OOOTF  ,C04 . DUNS ( 1 )  .CM1  .CM?  .CM3.CM4.NMCN 
SDOTMC.NTP.iNRE .NRF  *  RMR . NMCR .NOOTMCR  » CM 5. HUM 6 ( 7 ) .CS1.CS2.CS3.CSA* 
6NSC»N00TSC.C55.0UM7<3) .C 1 1 . CI2 .CI3 .NSEC .MLBS . OUMS ,CT1 .CT2.RA.PT 
7.PL.TT.NEXl»TCYCLE.CT3.0UM9(ft).CVl .CV2 . CV3 . CVA .CVS. GAMMA, DUM 10 (A) 

common  /worker/  pci .psi , pst. f?NS. nvr.nvs.nvt.slavg.slmax.slr.no 

1L.LAMDA.SL.SLRMAX 

common  /result/  F0Lxs<B,5,;>>,£QuiP<8,5.2),FACiLta,s,2) 

COMMON  /HEAOER/-  T  ITI.E  (8)  .TOOAY, CLOCK.  ITER8 

common  /switch/  print. costs. nteuG.oATi .chgo.chgos.chgrho.chgeo.chg 

1A. PR TOFF .OO.OOS.ORHO.OEO.OA . ID. I OS . IRHO » IEO . I A 
LOGICAL  OO.OOS.ORHO.OEO.OA, 10. IDS, IRHO. IEO, I A 
LOGICAL  PR INT, COSTS, DEBUG, OAT  1 
LOGICAL  CHGO.CHGOS.CHGRHO.CHGEO.CHGA.PRTOFF 
DIMENSION  ST ( 20 )  ,  FOLKM  1 8 .5 *?> »  EQUIK < 8 .5.2) »  FACIM(8»S.2> 

NOxN 1*1 

10  call  Input 

control  SWITCHES  -  CONTROL  PRINTER  SELECTIONS 
SWITCH  PRESET  CONTROLS 
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i, 


noon  non  non  non  non  non  non  ooo  oooooooooo 


PRINT 

ON 

PRINTING 

OF 

RESULTS  AT  EACH  DNS  ITERATION 

COSTS 

ON 

CALLS  TO 

SUBROUTINE  COST 

DEBUG 

OFF 

PRINTING 

OF 

INTERMEDIATE  CALCULATIONS  ' 

OATl 

ON 

printing 

OF 

VALUES  IN  COMMON  /INPUTS/ 

PRTOFF 

OFF 

SUPPRESSES 

INTERMEDIATE  OUTPUT 

IF  (PRTOFF)  GO  TO  20 

PRINT  350  »  TITLE*T00AY, CLOCK, RS 

CALCULATE  RAID  LAUNCH  rate 

20  CONTINUE 

SLR*RAIO*TO/(PR*TMASS) 

SLRMAX*RAIO/ <TMASS*PR1 
IF  ( SLRMAX.LE.MLOL)  GO  TO  30 
PRINT  360,  SLRMAX.MLOL 
GO  TO  10 

TYPE  *  (1=C0ST  OPTIMIZATION) , (2*C0NSTANT  LEVEL  OF  EFFORT) 
CALCULATE  PROBABILITY  OF  SUCCESSFUL  LAUNCH 

30  PC1*SQRT (PC) 

CALCULATE  INGRESS  SURVIVAL  PROBABILITY 
PS1 s< SORT < 1.0*8. 0*PSS)-1.0)*O.S 

TERMINAL  SURVIVAL  IS  TPSt  INGRESS  TERMINAL  SURVIVAL  IS  TPS1 
TPS1 *( SORT (1.0*8.0*TPS)-l.O) *0.5 
TOTAL  INGRESS  SURVIVAL 
PS1*PS1*TPS1 

CALCULVTE  OVERALL  MISSION  SURVIVAL  PROBABILITY 
PST=»PC*PSS*PLS**  <  1  .0/RS) 

TOTAL  SURVIVAL  CONSIDERING  TERMINAL  DEFENSES 
PST  *PST  *TPS 

SET  UP  LOOP  ON  VALUE  TO  BE  VARIED 
IF  (PRTOFF)  PRINT  620 
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IF  (CHOO)  0SAVE=0S 

SET  UP  OUTER  AND  INNER  LOOPS 
OUTER  LOOP 
00  3*0  K2*l ,N0 
IF  (CHGD.ANO.OD)  D=VARY0 (K2> 

IF  (CHGD.ANO.OD)  PRINT  6*0*  0 
IF  (CHG0S.AND.00S)  DS=VARY0<K2) 

IF  (CHG0S.AN0.00S)  PRINT  650.  OS 
IF  (CHGRH0.AN0.0RH0)  RHO^VARYO <K2) 
IF  (CHGRH0.AN0.0RH0)  PRINT  660*  RH0 
IF  (CHGE0.AN0.0EO)  F0*VARY0<K2) 

IF  (CHGE0.AN0.0E0)  PRINT  670.  EO 
IF  (CHGA.ANO.OA)  A=VARY0(K2> 

IF  (CHGA.AN0.0A)  PRINT  680*  A 

INNER  LOOP 

IF  (PRTOFF)  PRINT  620 
00  330  K 1  =r  1  *N I 

IF  (CHGO.ANO.IO)  0=VARY (K 1 ) 

IF  (CHGOS.ANO.IOS)  DS=VARY(Kl) 

IF  (CHGRH0.AN0.1RH0)  RH0=VARY(M> 

IF  (CHGE0.AN0.IE0)  E0=«VARY  C K 1 ) 

IF  (CHGA.AN0.IA)  A=VARY(KI) 


CHECK  FOR  VARY  ATTRITION 
IF  (CHGA)  *0,50 

*0  PSI*SRRT( (l.O*e.O*PSS)-1.0)*.5 
PST»PC*PSS*PLS**(1 .0/RS) 

50  CONTINUE 

TEST  FOR  MISSION  TYPE 

GO  TO  (60,150) .TYPE 

/////////////////////// 

/  COST  OPTIMIZATION  / 

/////////////////////// 

60  CONTINUE 

IF  (PRTOFF)  GO  TO  70 
PRINT  370 

PRINT  380,  EO, 0,RS, PCI, PSS,PS1, PST, RHO, RAID 
70  CONTINUE 

CALCULATE  BOUNDS  ON  NS  NS  MAX  AND  NS  CRITICAL 
POK»1.0-PST 
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PSTRS*PST»*RS 

PSTRS0=PSt**(RS*0) 

PSTPSOS^PST** <RS»OS) 

PSRSODSEPST**(RS*(D-OS) ) 

PLSDS=PLS«*OS 

LAM0AERH0*PS1*PR*PC1 

SLeE0/LAMOA 

IF  (DEBUG)  PRINT  390,  POK ,PSTRS ,PSTRSO,PSTRSOS,PSRSDOS,PLSOS, LAMOA 
I.SL 

ONSMAX* (EO*POK/LAMO A ) /  (OS-PSRSOOS* ( 1 . O-PSTPSOS) / ( 1 .0-PSTRS) ) 
DNSC=£0*»0K* ( 1 .0-PSTRS ) / (LAMOA* ( 1 .0 ♦OS-OS»PSTRS-PSRSODS) ) 

if  (prtoff)  go  to  ao 

PRINT  400.  ONSMAX  , ONSC 
80  CONTINUE 

SETUP  LOOP  ON  NS 

IF  (PRINT)  PRINT  410 
CTMIN»1  .0E100 
TNS*ONSMAx/20.0 
0NS*0. 

DNSLAST*ONS 

mult*o 

00  140  ITeR8=*1  ,22 
ONS=MULT»TNS 

IF  (DNSLAST.lt. DNSC.ANO.ONS.GT.DNSC)  GO  TO  90 
IF  (PRINT!  PRINT  420,  T ITLE » TODAY .CLOCK , DNS 
MULTsMIJLT.1 
GO  TO  100 
90  ONS*ONSC 

IF  (PRINT)  PRINT  430,  T ITLE » TODAY .CLOCK , DNS 
100  CONTINUE 

CALCULATE  NVS.NVR.NVT 

NVR=EO*POK/ (LAMOA* ( l ,0-PSTRSD) ) - (OS-PSRSDOS* ( 1 . 0-PSTRSDS) / (1 . 0-PST 
IRS) )»ONS/(1.0-PSTRSD> 

IF  (PLS.EO.l.O)  NVS=ONS*OS 

IF  (PLS.NF.1.0)  NVS=ONS*(1.0-PLSOS)/(PLSDS*(1.0-PLS)) 

NVT*NVR*NVS 

CALCULATE  LAUNCH  RATE  AVERAGE  MAXIMUM  AND  MAXIMUM 

IF  (ONS.GT.QNSC)  GO  TO  1 1 0 
SLAVG-NVR» ( 1 .0-PSTRS ) /PO K 
GO  TO  120 

110  SLAVG=NVR*PSTRSOS 

SLAVG3SLAVG*ONS* ( 1 .O-PSTRSOS )/ ( 1 .0-PSTRS ) 

SLAVG*SLAVG*( 1 .0-PSTRS) /POK 
120  SLMAX*AMAX1 (SLAVG.SLR) 


--  l 


IF  (OERUG)  PRINT  440.  NVT ,NVS .NVR .SLR . SLAVG.SLMAX 
C 

C  COMPUTE  COSTS 

C 

IF  (.NOT. COSTS)  GO  TO  I4C 
CALL  COST  (TOTAL) 

C 

C  STORE  OATA 

C 

IF  (TOTAL. C-E.CTMIN)  GO  TO  140 

CTMlNsTOT,\L 

ST(l)3lTER8 

ST (2) »TOTaL 

ST(3)=0NS 

ST (4)=NVT 

ST(5)=»NVR 

ST(6)=NVS 

ST (7) =SLAVG 

ST(8)=SLMaA 

ST(9)*SLR 

ST(10)=NOL 

DO  130  1-1,8 

00  130  J-1,5 

DO  130  K-1,2 

FOLKM(IfJ.K) aFOLKS  <  7 ♦ J.K ) 

EQUlM(I,J,K)sEQUIP<I,J,K) 

130  F AC IM ( t , J , K ) »F AC IL(I.J.K) 

140  DNSLAST=ONS 
C 

C  THE  MOST  COST  EFFECTIVE  SYSTEM  IS 

C 

IF  (.NOT. COSTS)  GO  TO  10 
GO  TO  260 
C 

C  ✓///////////////////////////// 

C  /  CONSTANT  LEVEL  OF  EFFORT  / 

C  ////✓///////////////////////// 

c 

ISO  CONTINUE 
ITER8-1 
SAVRAID-RAlD 
RAI0-1.0 

IF  (PRTOFF)  GO  TO  160 
PRINT  450 
160  CONTINUE 
C 

C  CALCULATE  CRITICAL  REMOVAL  RATE  (  DNSC  ) 

C 

PST*PSS*PC*PLS** ( 1 .o/RS ) 

C 
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TOTAL  SURVIVAL  CONSIDERING  TERMINAL  DEFENSES 
PST*PST*TpS 

PSl*(SQNT< 1.0*8. 0*PSS> -l.0)*0.5 

INGRESS  SURVIVAL  CONSIDERING  TERMINAL  DEFENSES 

PSl=PSl*TpSi 
IF  ICHGA)  170.180 
170  PSS=1-A 

PS  1  =  < SORT <1.0 *8. 0*PSS)- 1.01*0.5 
PST=PSS*PC*PLS**(1  .0/RS) 

180  CONTINUE 

POK=UO-PsT 

LAM0A=RH0*PS1*PR*PC1 

DSaO-l.O 

PSTRSsP$T**RS 

PLSDS*PLS»*0S 

SL=E0*D/LAM0A 

IF  (PRTOFFI  GO  TO  1R0 

PRINT  4*0,  EO. 0.RS. PCI. PSS.PSl. PST. RHO, RAID 
190  CONTINUE 

0NSC*E0*P0K/LAH0A 
IF  IPRTOFF)  GO  TO  200 
PRINT  470,  DNSC 
200  CONTINUE 

CALCULATE  THE  LAUNCH  RATE  AVERAGE  MAXIMUM  AND  MAXIMUM 
FOR  THE  RECCE  MISSION  SLR  AND  SLAVG  ARE  CONSTANTS 

SLAVG=£0/LAMOA 

SLRsO 

SLHMAX*Q 

SLMAX*SLAVG 

ONS»ONSC 

IF  (PRINT!  PRINT  420,  TITlE.TOQAY .CLQCK.ONS 

CALCULATE  NVS*  NVR.  NVT 

NVRsE 0*P0K/ ( ( 1 . 0-PSTRS ) *LAMDA ) 

NVS*0NS*M  . 0-PI. SOS)  /  (PL SOS*  <  1 ,0-PLS) ) 

NVT*NVR*NVS 

IF  (.NOT, PRINT)  GO  TO  210 

PRINT  440,  NVT »NVS *NVR » SLR  * SL AVG* SLMAX 

PRINT  480 

COMPUTF  COSTS 

210  IF  I. NOT. COSTS)  GO  TO  230 
CALL' COST  (TOTAL) 
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STORE  DATA 

CTmIN*TOTAL 
ST ( 1 ) »ITER8 
ST (2) »TOTaL 
ST (3)=0NS 
ST (4) »NVT 
ST(S)=NVR 
ST (6) =NV5 
ST ( 7) =SLAVG 
ST  <8)=SLMAX 
ST  (9) =SLR 
ST ( 1 0 ) *NOL 
00  220  I»1 ,8 
00  220  J»l«5 
DO  220  K=1 ,2 

FOLKM ( I, J.K) =F0LKS <  T  ,  J.K) 

EQUlM(I,J,K)=EOUlP<I»J»K) 

220  FACIM(I,J,K)»FACIL<  !,J,K> 

230  CONTINUE 

RA!D*SAVRaID 

THE  MOST  COST  EFFECTIVE  SYSTEM  IS 

IF  (.NOT. COSTS)  GO  TO  10 

/✓////////////////////////////// 

/  PRINT  MINIMUM  COST  RESULTS  / 

J ////J/////// J ///////////// t//// 

260  CONTINUE 

IF  (PRTOFF)  GO  TO  270 

..  PRINT  520,  TITLE. TODAY, CLOCK, (S7  ( I )  » 1  =  1 • 1 0 > 

N0L=S7 (10) 

PRINT  S30 

PRINT  540  ,  FOLKM (1,1,1), FOLKM (1,1,2), EQU IM (1,1.1), FOU IM (1,1,2), FOL 
1KM(1«2«1) .FOLKM (1,2,2) ,EOUIM( 1,2,1) ,EQUIM( 1,2,2) .EOUIM ( 1 , 3 , 1 ) ,EQUI 
2M<1 ,3,2) , CLS 

PRINT  550,  FOLKM (2, 1,1) , FOLKM (2,1,2) ,E0UIM( 2,1,1 )  ,EOUIM( 2, 1,2) ,F0L 
1KM(2,2,  1)  .FOLKM  (2,2,2)  , EOU IM  ( 2 , 2 , 1 )  ,EOU IM  (2 ,2 , 2 )  ,F.OUIM  (2 . 3 , 1 )  »EQUI 
2M (2,3,2) ,CR3 

PRINT  560.  FOLKM (3, 1,1) .FOLKM <3, 1,2) , EQUIM ( 3, 1 « 1 ) »EOUIM ! 3 , 1 ,2) ,FAC 
1 IM(3» 1 » 1 ) ,FACIM(3,1,2) .FOLKM (3, 2,1 ) , FOLKM ( 3,2,2 ) ,EOUIM (3,2, 1 ) »EQUI 
2M (3,2,2) ,CM5 

PRINT  S70,  F0LKM(4,i,1) ,F0LKM(A.1,2) ,E0UIM(4,1, 1 ) ,E0UIM(A,1,2) ,FAC 
1 IM (4,1.1 ) .FACIM(4,1,2) ,CSS,FACIM<4,2, 1 ) , F ACIM ( 4 , 2, 2 ) 

PRINT  S80 ,  FOLKM (5,1 ,1) .FOLKM <5 » 1 , 2 ) .ECUIM (5, 1 » 1 ) .EQUIM (5, 1 »2> ,FAC 
1IM(5,1»1).FACIM<5,1,2) ,C04 

PRINT  590,  FOLKM (6, 1,1) .FOLKM (6, 1,2) ,FACIM (6, 1 , 1 ) .FaCIM (6, 1 ,2) ,FAC 


no  no  non 


IIM(6,2,1),FACIM(6,2,2> 

PRINT  600,  F0LKM(7,1 ,1) , FOLKM ( 7 , 1 , 2 > ,E0UIM(7,1 ,1) , EOUIM ( 7  *  1 ,2) ,FAC 
IIM(7,1,1).FACIM(7,1,2)  , FOLKM  {  7 , 2 , 1  >  ,F0LKM  ( 7, 2 , 2  >  ,E(3II  IM  (  7,2, 1  )  ,EQUI 
2M(7»2,2) ,CT3 

PRINT  610,  E<DUIM(8, 1 ,1)  ,£QUlM(8, 1*2) , ECU IM ( 8, 2, 2 ) , EOUIM (8,3*2) *EQU 
1IM(8,4,2) , EOUIM (8, 8, 2) 

270  CONTINUE 

COMPUTE  TOTALS 

NP£RS*PERSC*0.0 
00  280  1*1*8 
00  280  J*1*S 
NP£RS*NPERS*FOLKM ( 1 , J, l > 

280  PERSC=PERSC»F0LKM(I,J,2) 

EQl!PC=0.0 
00  280  1*1,8 
00  290  J*1 ,5 

290  E0uPC*E0UPC*EQUIM(t,J,2) 

EQUPC*E0UoC*CL5*CR5*CS5*C04*CT3*CM5 
FACLC*0.0 
00  300  1*1,8 
00  300  J*l »S 

300  FACLC*FACLC*FACIM(I,J,2) 

TOTAL*RERSC,EOUPC,FaCLC 
IF  (PRTOFF)  GO  TO  310 

PRINT  510,  NPERS.PER$C*EOUPC,FACLC*TOTAL 
310  CONTINUE 

IF  (.NOT. PRTOFF)  GO  TO  320 
ST(1)=T0TAU 
ST (2) =F0/RH0 

IF  <TYPE.EQ.2>  ST (2) * (E0*0) /RHO 
ST(3)=TOT4L*RHO/EO 

IF  (TYPE. £9. 2)  ST ( 3 ) *T0T AL*RhO/ (E0*0) 

ST(4)=E0 

IF  (TYPE. £0.2)  ST (4)*E0*0 
ST (S) *RHO 
ST (6) *1 ,0-PSS 
ST(7)=T0TAL*RH0 
PRINT  630,  (ST(I) ,1*1,7) 

320  CONTINUE 

ENO  INNER  LOOP  K1 
330  CONTINUE 

ENO  OUTER  LOOP  K2 
340  CONTINUE 
C 

IF  (CHGO)  0S*0SAVE 
GO  TO  10 


350  FORMAT  <lHl,T10.aA10.T100.SHOATE:,A10.5X.5HTIME:.A10/16H-SORTIE  RA 
1TE  IS  .F7.A.14H  SORTIES  /  0 Ay///) 

360  FORMAT  (43H1MAX  R A 1 0  LAUNCH  PATE  EXCEEDS  OL  CAPA8 IL I TY . T50 » 9HSLRMA 
IX  *  .FB.2/T50.9HMLOL  =  .F3.2> 

370  FORMAT  (25H  THIS  IS  A  STRIKE  MISSION///) 

380  FORMAT  <2lH  TARGETS  TO  BE  K ILLEO . T30 . F 1 0 . 0//15H  NUMBER  OF  0AYS.T30 
1.F10.0//25H  SORTIE  RATE.  SORT  I ES/DAY . T30 . FT  1 . 1//22H  PROBABILITY  OF 

2  LAUNCH. T30. F13.3//PAH  PROBABILITY  OF  SURVIVAL .T3Q.F13.3//12H  INGR 
3ESS  PS1.T30.F13.3//2RH  OVERALL  SURVIVAL  PRORAB ILITY . T30 .F 1 3 .3//20H 
4  TARGET  KILLS/SORTIE.T30.FI2.2//20H  RAID  SIZE.  VEHICLES.T30.F10.0Z 
5/) 

390  FORMAT  (Tl0.3HPOK,T20.F8.6/Tl0.SH/»STRS.T20.F8.6/T10.6HPSTRSO.T20.F 
18.6/T10.7hPSTRSOS.T20.FS.6/T\0. THPSRSOOS. T20  *FB .6/T1 0 .SHPLSOS.THO  . 
2F8.6/TlO.BHLAMOA.T20.F8.6/T10.2HSL.T15.Fft.l/) 

400  FORMAT  (23H  MAXIMUM  RETRIEVAL  R ATE . T30 . F 1 2 .2//24H  CRITICAL  RETRIEV 
1AL  RATE.T30.F12.21 
410  FORMAT.  (lHl) 

420  FORMAT  (1 Hi . T10 . 3 A1 0 . T1 00 .5H0ATE : » A 1 0 . SX , 5HTIME : , A1 0/2SH-FOR  A  RET 
1REIVAL  RATE  OF  «F3 .2/ ) 

430  FORMAT  ( lHl . T 1 0 .8 A 1 0 . T1 00 .5H0ATE ’ . A1 0 »5X . SHTIME : . A1 0/2SH-FOR  A  RET 
1RIEVAL  RATE  OF  .FB .2 . 1  OX .43H (  <(  CRITICAL  RATE 
2)  )  )/) 

440  FORMAT  (T 1 0 . 5HN7T  =  .F9 . 0 • T30 .5HNVS  = . F9 .0 . T50 .SHNVR  =.F9 ,0/T 1 0 . 5HS 
1LR  =»F13.4»T30»7HSLAVG  =  ♦  r  1  1 .4.T50  ♦  7HSLM  AX  =,FU.4) 

450  FORMAT  (24H  THIS  IS  A  RECCE  MISSION///) 

460  FORMAT  (lqH  TARGETS  FOR  RECCF . T30 . F 1 0 . 0//1 5H  NUMBER  OF  DAYS.T30.F1 
10.0//2SH  SORTIE  RATE.  SOR T IES/OAY , T30 .F 1 1 . 1//22H  PROBABILITY  OF  LA 
2UNCH.T30.F13.3//24H  PROBABILITY  OF  SUPV I VAL .T30 .FI 3 .3// 1 2H  INGRESS 

3  PS1.T30.F13.3//29H  OVERALL  SURVIVAL  PROBAfl IL17  Y  ,T.3R  .F 1 3.3//24H  TA 
4RGETS  AC0DIRED/SORTIE.T30.F12.2//20H  RAID  SIZE.  VEHICLES. T30.F10.0 
5//) 

470  FORMAT  (24H  CRITICAL  RETRIEVAL  RATE .T30 .F12 .2) 

480  FORMAT  (T 1 0  »63H (NVT »  SLR.  SLAVG.  ANO  SLMAX  ARE  CONSTANT  FOR  THE  RE 
1CCE  MISSION)) 

490  FORMAT  (38M  THIS  IS  A  DEFENSE  SUPPRESSION  MISSION///) 

500  FORMAT  (2?H  THIS  IS  AN  £W  MISSION///) 

S10  FORMAT  < lx ♦ 135 ( 1H- ) /3IH  **  TOTALS  FOR  ENTIRE  SYSTEM  **.T34,F7.0,FI 
12.2.T7f?,Fi6.2.TU9,F16.2//24H  **  TOTAL  SYSTEM  COST  **  .T37.F16.2) 
520  FORMAT  ( 1 H l . T 1 0 . B A  1 0 ♦ T 1 00 . 5H0ATF : . A  1 0 . SX . 5HT IMS  !  .  A 1 Q/37H-THE  MOST 
ICOST  -  EFFECTIVE  OPTION  I S : //T5 , 1 6H I TEP AT  ION  NUMBER . T42 ,E4 . 0/T5. 1 0 
2HTOTAL  C0ST.T33.E15.2/T5. 26HST0RAGE  RFMOVAL  RATE  -  nNS. T4l .F6. 1/T5 
3.20HTOTAL  VEHICLES  -  NVT . T3« .F8 . 0/T5 • 30HNUMBER  OF  REAOY  VEHICLES  - 

4  MVR.T",8»F8.0/T5.31 HNUMRFR  OF  STORED  VEHICLES  -  MVS , T38 .F8 . 0/T5. 31 
5HMAX  AVERAGE  SORTIE  PATE  -  SLAVG. T38.F9.1/T5.27HMAXIMUM  SORTIE  RAT 
6E  -  SLMAX, T38.F9. 1/TS.22HRAI0  SORTIE  RATE  -  SLR.  T38.F9.I /T5.32HNO. 
7  OF  OPERATING  LOCATIONS  -  NOL . T4 1 ,F5 . 0 ) 

530  FORMAT  (/T17.38HPERS0NNFL  RfOUIREMFNTS  FOR  THIS  OPT  ION. T58 , 38HEQUI 
1PHENT  REQUIREMENTS  FOR  THIS  OPTION, T99, 37HFACIL ITY  PEQU IREMENTS' FO 
2R  THIS  0PTI0N/T17.3BUH-)  ,TS8.38(1H-)  »T99,38(1H-)  ) 
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540  FORMAT  |7H  LAUNCH, T 1 9,6HLAUNCH, T37 , F4.0 ,F 1 2 .2, T60, 9hLAUNCH£RS , T78 , 
1F4.0,F12.?/T19,14hla<JNCH  CONTROL , T 37 . F4 . 0 »F12 .2 , T60 , 1 1 HACCESSOR IES 
2*T78.F4.0,F12.2/T60. 12HM08ILE  EQUIP, T78,F4.0,F12. 2/160. 7HROT  ♦  E»  T 
382,F12.2) 

550  FORMAT  <9H0RECOVERY,T19,aHREC0V£RY,T37,F4.0,F12.2,T60»14HREC0VERY 
1AREAS,T78,F4.0,F12.?/T19, 16HRECOVERY  CONTROL « T37.E4 . 0 , F 1 2 . 2 , T60 » 11 
2HACCES50RTES,T78,F4.0,F12.2/T&0,12HM08ILE  EQUIP ,T78 ,F4.0 ,F 12 .2/T60 
3t7HR0T  ♦  E.T82.F12.2) 

560  FORMAT  ( I?H0MAINTENANCE,T19,9HPERSONNEL,T35,F6.0,F12.2»T60,l6HTURN 
1  AROUND  EOurP,T79,F4.0,Fl2.2*Tl01. 15HMAINT  PlJ ILD iNGS , T U 9 , F4. 0 , F12 . 
22/T19,UHR£PAlR  PERS , T 35 , F6 .0  «F  1 2 .2 ♦  T60  » 1 2HREP A  IR  FQUIP. T78 »F4. 0 ,F 
312.2/T60, 7HP0T  ♦  E.T92.F12.2) 

570  FORMAT  ( ShPSTOR AGE  * T 19 , 9HPERS0NNEL, T37 , F4 .0 »F 1 2 .2 , T60 , 14HHAN0L ING 
l£OUlP,T78,F4.0,F12.?*Tm,  12HCOL0  STORAGE,  T 1  1 6 ,  F7 .0  ,F  12 .2/T6Q ,  7HRO 
2T  ♦  E«T32,F12.2*TI0I . 13HREAOY  STOR APE . T 11 6 , F7 . 0 ,F1 2 .2 > 

580  FORMAT  ( 1 1  HOOPER AT  IONS , T 19 , 9HPERS0WMEL , T37 »F4 .0 , FI  2 .2 , T60 *  1 3HCONTR 
IOL  EQUIP,T78,F4.0,F12.2,T101, l&HCONTROL  F AC IL IT Y ,T 1 1 9 , F4 . 0,F12 .2/T 
260.7HR0T  ♦  E,T82,F12.2) 

590  FORMAT  (11HOOL  ST ARTUP , T 1 9, 8HSECUR ITY , T37 , F4.0 ,F1 2 .2 t T 1 0 1 t 14HM ISS. 
1  FAC  STORfT113,F10.0,Fl2.2/Tl01,I8HINITIAL  ACTI VATION.Tl 19.F4.0.F1 
22.2) 

600  FORMAT  (9HQTRA INING , T19, 1 lH INSTRUCTORS , T37 .F4.0 »F1 2 .2 , T60 . 13HSPECI 
1AL  EQ«JIP.T78,F4.0,F12.2.T10l, 17HTRAINING  LOCATION, Til 9 . F4 .0 *F 12 .2/ 
2T19,8HTRA7NEES.T35,F6.0,F12.2»T60,17HTRAINING  VEHICLES, T74,F3.0, FI 
32 .2/T60 , 7hPOT  ♦  E,T82,F12.2) 

610  FORMAT  <9H0VEHICLES,T60,11HACQUISITI0N,T74,F8.0,F12.2/T60,6HSPARES 
1,T80,F14.3/T60,7HR0T  *  E, TBO ,Fl4 .2/T60 > 1 9H>?eC0VERAPLE  PAYLOAD, T80, 
2F14.2/T60.18HEXPEN0A2LE  PAYLOAD , T80 ,F 1 4 .2 ) 

620  FORMAT  (//T16»4HCOST,T41 ,6HEO/RHO,T5fi,8HC  RHO/EO. T70 ,2H£0 » T87 » 3HRH 
10,T102,4HATTR,T116,5HR  PHO) 

630  FORMAT  (T 1 0 , F 12 .2 , T35* F 1 2 .3 » T50 , F 1 2 .3 , T65,F1 2 .2 , T80 ,F1 2.2, T95,FI2. 
13, T1 10.Fl2.21 

640  FORMAT  ( /T 1 0 , 1 4H  OUTER  LOOP  0*»F10.1> 

650  FORMAT  </T10,15H  OUTER  LOOP  0S*.F10.1> 

660  FORMAT  I/T10.16H  OUTER  LOOP  RHO=,F10.2) 

670  FORMAT  </T10,15H  OUTER  LOOP  FO=,F10.1) 

680  FORMAT  (/T 10, 14H  OUTER  LOOP  A=,F10.3> 

ENO 
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no  ooo  non  non  non  non  non 


SUBROUTINE  INPUT 

common  /change/  no.varyoiso)  .ni .vary  iso> 

COMMON  /INPUTS/  TYPF.EO«O.OS. RHO  * R A id*rs.to.ts*tm*tmass*m 
1L0L  .MINL.0UM1 (7) . PR .PLS .PC  .  PSS . TPS . 0UM2 (IS > .CL1 .CL2.CL3.CL 
24.CL5»NLC,NOOTLC.NLCC.NOOTLCC*LOOTE.NLS.MHE,DUM3<3> .CR1.CR2.CR 
33  *CR4 .CRS .NHC .NOOTRC.NRCC .NQOTRCC  *ROOTE  .MRS .MRE  *0UM4  <  3) .CO  l .00 
42.N0C.NOOTOC.TC.C03.0OOTE.00OTF .C0^.DUM5 1 1 > ,CM1 > CM2 , CM3 . CM4 .NMC *N 
500TMC.NTR.NR£.NRF.RMR.NMCP,NnOTMCR.CM5.DUM6<7) .CS1.CS2.CS3.CS4, 
6NSC*NDOTSC*CSS.OUM7<3) «Cll»CI2»CI3.NSEC  .MLRS.0UM8 (S) ,CT 1 .CT2.RA.PT 
7,PL,TT,NExl *TCYCLE.CT3.0UMR<6) ,CV1 .CV2,CV3,CVA.CV5,GAMMA,DlJMlO(4) 
COMMON  /RFSULT/  F0L«S(8.5,2> , EQU IP ( 0 . 5 . 2 > .FACIL (8.S.2) 

COMMON  /HEADER/  TITLE (ft) *  TOO AY  » CLOCK  * ITER8 

COMMON  /SWITCH/  PR  I NT « COSTS » DEBUG* DAT] .CHGO.CHGOS.CHGRHO.CHGEO.CHG 
1 A  »PRT  OEE  .oO.OQS.ORHO.OFO.Oa.IQ.IDS. IRHO.IEO.IA 
LOGICAL  OO.OCS.ORHO.OEO.OA. In* IDS* IRHO, IE0* I A 
LOGICAL  PRINT * COSTS, OE BUG, DAT  1 
LOGICAL  CHGO,CHGOS*CHGRHO,CHGEO,CHGA*PRTOFE 
DIMENSION  VAR(IAS)*  NAMES<145).  FLAG! 145) 

EQUIVALENCE  ( VAR (1), TYPE) 

MISSION  REQUIREMENTS 

DATA  <NAMFS< I) ,1=1 ,20)/4HTYPF.2H£0.1HO,2HDS,3HRH0.4HRAIO,2HRS. 
12HTO«2HTS.2HTM,5HTMASS,4HHLOL*4HMINL*7*7HSUNUSED/ 

PROBABILITIES 

OATA  (NAMES (I) v I=21,40)/2HPR,3HPLS*2HPC*3HPSS*3HTPS.15*7HSUNUSED/ 
LAUNCH  COST  COEFFICIENTS 

OATA  (NAMES! I) .1=41 ,S5)/3HCL1 .3HCL2 * 3HCL3 * 3HCL4 .3HCLS, 3HNLC.6HNDOT 
1LC.4HNLCC ,7HND0TLCC . 5HLD0TE *  3HNLS . 3HMHE ,  3*7H$UN>JSED/ 

RECOVERY  COST  COEFFICIENTS 

DATA  (NAMFS(I) . I=5G*70)/3HCRI *3HCR2.3HCR3»3HCR4,3HCR5*3HMRC.6HNDOT 
1RC.4HHRCC,7HNDOTRCC.5HROOTE*3HNRS*3HMRE*3*7HSUNUSEO/ 

OPERATIONS  COST  COEFFICIENTS 

OATA  (NAMES (I) *  1  =  71 » BO ) /3HC01 *  3HC02  *  3HN0C .6HN00T0C  *  2HTC*  3HC03  *5H00 
IOTE  *5H000tF  *  3HC04  «  7HS UNUSED/ 

MAINTENANCE  COST  COEFFICIENTS 

OATA  (NAMFS(I) » I=fll, lOO)/3HCMl.3HCM2,3HCM3*3HCM4,3HNMC*6HNOOTMC.3H 
1NTR.3HNRE.3HNRF*3HRmR,4HNMCR,7HN00TMCR.3HCM5.7«7H$UNUSE0/ 

STORAGE  COST  COEFFICIENTS 


r 
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OATA  (NAMES ( t>  * 1=101*110) /3HCS1 * 3HCS2 * 3HCS3  * 3HCS4* 3HNSC  *6HND0T5C*3 
1HCSS*3*7H?UNUSE0/ 

INITIAL  STARTUP  COST  COEFFICIENTS 

OAT A  (NAMES (I) *  1  =  1 11* 120>/3HCI1 , 3HCI2 . 3HCI3 .4HNSEC , 4HMLBS *5*7H$UNU 
1SE0/ 

TRAINING  COST  COEFFICIENTS 

OATA  (NAMES!  I) *  1*121*135>/3HCT1 ,3HCT2*2HRA,2HPT,?HPL,2HTT,4HNEX1,6 
1HT CYCLE  *3hCT3,6»7HSUNUSED/ 

VEHICLE  COST  COEFFICIENTS 


DATA  (NAMES ( I>  * 1= 1 36 , US > /3HCV1 *3HCV2 , 3HCV3 .3HCV4, 3HCV5 * 5HGAMMA,4* 
17HSUNUSED/ 

DATA  FLAG/145*1H</,|/AR/145*0.0/ 

OATA  PRINT  * COSTS* DEBUG* OAT  1 •  CH6D*CHGDS « CH6RH0 * CHGEO  *CHG A*PRT0FF/  .T 
1RUE. *.TRUE... FALSE.,. TRUE ., .FALSE . FALSE.*. FALSE.* .FALSE.*. FALSE. 
2. .FALSE./ 

DATA  00,OOS,ORHO,OEO»OA, 10, lOS, IRHO , IEO . I A/. FALSE .* .FALSE  .FALSE . 
1*. FALSE.*. FALSE.*. FALSE.,. FALSE.*. FALSE,*. FALSE.*. FaLSE./ 

OATA  TITLE/8*1H  / 

ISTOP=l 


10 

20 


PRINT  340 

CALL  OATE  (TOOAY) 

CALL  TIME  (CLOCK) 

00  10  1=1,145 
IF  (FLAG  (  1 1  .£0 .  IH(* )  FLAG ( 
READ  350*  NAME.OATA 
IF  (NAME.FQ. 1 OHENO JOB 
IF  (NAME.fQ.10H 
IF  (NAME.E0.10HPRINT 
IF  (NAME .£0 . 1 OHNOPR INT 
IF  (NAME.EO.IOHCOSTS 
IF  (NAME.PQ.IOHOATA 
IF  (NAME. £0.1 OHNODATA 
IF  (NAME.FO.l OHNOCOsTS 
IF  (NAME.EO.IOHDEBUF 
IF  (NAME. £0.1 OHNOOEpUfi 
IF  (NAME.fO.IOHTITLF 
IF  (NAME.FO.IOHENOCASE 
IF  (NAME.FO.l OHCHGO 
IF  (NAME.FO.IOHCONSTD 
IF  (NAME.FO.l OHCHGOS 
IF  (NAME.FO. lOHCONSTOS 
IF  IN AME.FO. 1 OHCMGRMO 
IF  (NAME.FO. lOHCONSTRHO 


i: 

)  =  1 H 

) 

STOP 

) 

GO 

TO 

20 

) 

GO 

TO 

40 

) 

GO 

TO 

50 

) 

GO 

TO 

60 

) 

GO 

TO 

100 

) 

GO 

TO 

110 

) 

GO 

TO 

70 

) 

GO 

TO 

SO 

) 

GO 

TO 

90 

) 

GO 

TO 

120 

) 

GO 

TO 

290 

) 

GO 

TO 

140 

) 

GO 

TO 

140 

) 

GO 

TO 

160 

) 

GO 

TO 

160 

) 

GO 

TO 

IPO 

> 

GO 

TO 

ISO 
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IF  (NAME.PQ .  I QHCH6E0  )  Go  TO  200 

IF  (NAME.ro. IOHCONSTEO  )  GO  TO  200 

IF  (NAME.EO. 10HCHGA  )  Go  TO  220 

IF  (NAME.EQ.IOHCONSta  )  GO  TO  220 

IF  (NAME.FO. 10HPM INTOFF  >  GO  TO  230 

IF  (NAME.EQ.IOHPRINTON  )  GO  TO  240 

00  30  1=1,145 

IF  <NAm£.£O.NAMES(I) )  GO  TO  280 
30  CONTINUE 

PRINT  360,  ISTOP.NAME.DATA 
PRINT  370 
ISTOP=0 
GO  TO  20 
40  PRINT=. TRUE. 

GO  TO  20 

50  PRINTS. FALSE. 

GO  TO  20 
60  COSTSs.TRUE. 

GO  TO  20 

70  COSTSs. FALSE. 

GO  TO  20 
80  OEPUGs.TRijE. 

GO  TO  20 

90  OE0UC*. FALSE. 

GO  TO  20 
100  OAT  1  * • TRUE « 

GO  TO  20 

110  OATI=. FALSE. 

GO  TO  20 

120  READ  380,  TITLE 
GO  TO  20 
130  CHGOs.TR'JE. 

GO  TO  250 
140  CHGOs. FALSE. 

IF  (00)  NO=l 
IF  (10)  NT=1 
OOs. FALSE. 

IO». FALSE. 

IF  (NAME.EO.IOHCHGO  )  GO  TO  130 

GO  TO  20 
150  CHGOSs.TRllE. 

GO  TO  250 
160  CHGOS=. FALSE. 

IF  (OOS)  NO*l 
OOS*. FALSE. 

IF  (IDS)  N I = 1 
IOSs. FALSE. 

IF  (NAME.E^. 10HCHGOS  1  GO  TO  150 
GO  TO  20 

170  CHGRHOs.TRUE. 
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GO  TO  250 
180  chgrho=. false. 

IF  (ORHO)  NO* 1 
ORHO*. FALSE. 

IF  URHO)  NI*1 
IRH0=. FALSE. 

IF  (NAME.EQ. 1 OHCHGRHO  )  00  TO  180 
GO  TO  20 

190  CHGEO=.TR(j£. 

GO  TO  250 
200  CHGEO=. FALSE. 

IF  (OEO)  M0=1 
0E0=». FALSE. 

IF  ( IEO)  Nl  =  l 

ieo*. false. 

IF  (NAME.EQ. 10HCHGEO  )  GO  TO  190 

GO  TO  20 
210  CWGAs.TRUE. 

GO  TO  250 
220  CHGA=. FALSE. 

IF  <0A)  N0=1 
OA*. FALSE. 

IF  (IA)  NI=1 
IA=. FALSE. 

IF  (NAME.FQ.10HCHCA  )  GO  TO  210 

GO  TO  20 

230  PRTOFFxr.TRUE. 

GO  TO  20 

240  prtoff=i. false. 

GO  TO  20 

250  READ  350 »  NAME , OAT  A 

IF  INAME.F0.10HOUTER  )  GO  TO  260 

IF  (NAME.EQ. 10HINNER  )  GO  TO  270 

PRINT  390.  NAME 
ISTOP=0 
GO  TO  20 
260  CONTINUE 
NOaOAT  A 

I:  (CH60.AN0..N0T.I0)  00=.TRuE. 

IF  (CHGOS.ANO..NOT.tOS)  OOS=.TRUE. 

IF  (CHGRHn.AMO. .NOT. IRHO)  ORHO=.TRUE. 
IP  (CHGEO.AMO..NOT.IEO)  OEO=.TRuE. 

IF  (CHGA.ANO..NOT.IA)  0A=.TRU£. 

REAO  400.  ( VARYO  <  T  > .1=1 .NO) 

PRINT  410,  <VARYO<I> , 1=1 .NO) 

GO  TO  20 
270  CONTINUE 
NIsOATA 

IF  ( CMGO. ANO . .NOT .001  10*. TRUE. 

IF  (CHGOS.ANO..NOT.OOS)  10S=.TRUE. 
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IF  <CHf,RHo.ANO..NOT.ORHO)  IRHO=.TRUE. 

IE  (CHGEO.ANO..NOT.OEO)  IEO=.TRUE. 

IF  (CHGA.4N0..N0T.0A)  lA*.TRt)E. 

READ  400,  (VARY ( I ) « 1  =  1  ,NI ) 

PRINT  420,  (VARY(I) ,T=1,NI> 

GO  TO  20 
VAR  (I)aOATA 
FLAG(I)=1h.» 

GO  TO  20 

IF  ( .NOT ,OATl )  GO  TO  300 
PRINT  430,  TITLE, TODAY, CLOCK 
PRINT  440 

PRINT  550,  (FLAG< I ) , NAMES ( I ) , VAR (I), 1-1,13) 

PRINT  450 

PRINT  550,  (FLAG(I) ,NAMES(I),VAR(I) ,1=21,25) 

PRINT  460 

PRINT  550,  (FLAG(I) .NAMES < I ) , VAR ( I ) ,1=41,52) 

PRINT  470 

PRINT  5S0,  (FLAG(I) ,NAM£S<I) ,VAR(I) ,1=56,67) 

PRINT  480 

PRINT  550,  (FLAG(I) .NAMES ( I ) , VAR ( I ) ,1=71,79) 

PRINT  490 

PRINT  550,  (FLAG(I) .NAMES < I ) . VAR ( I) ,1=81 ,93) 

PRINT  500 

PRINT  550,  (FLAG(I) ,NAMES(I) ,VAR(I) , 1=101. 107) 

PRINT  510 

PRINT  550,  <FLAG( I) ,N4MES( I ) , VAR( I) . 1=1 1 1 ♦ US) 

PRINT  520 

PRINT  550,  (FLAG(I) ,NAMES(I) ,VAR(I) , 1=121, 129) 

PRINT  530 

PRINT  550,  (FLAG(I),NAMES(I),VAR(I), 1=136, 141) 

00  310  1=1 ,8 
00  310  J*i ,5 
00  310  K=1 ,2 

FOLKS(I,J,K)=EQUIP(I,J,K)=FACIL(I,J,K)=0.0 
IF  (ISTOP.EO.O)  GO  TO  330 
IF  (0AT1)  RETURN 
00  320  1=1,145 

IF  (FLAG( I ) ,£Q. 1H»)  PRINT  540,  NAMES ( I > » VAR ( I ) 

CONTINUE 
RETURN 
CONTINUE 
PRINT  560 

STOP  A-  INPUT  ERRORS* 

FORMAT  ( 1 Ml ) 

FORMAT  <Al0»E20.8> 

FORMAT  <Il,9X,A10,5X,F10.3> 

FORMAT  (1h*,T40,46M****  VARIAELE  NAME  IS  NOT  IN  DICTIONARY  ***•) 
FORMAT  ( 8 A 1 0  > 


390  FORMAT  (T 1 0  * A10 * T25 , 33H IS  MOT  INNER  OR  OUTER  INPUT  ERROR) 

400  FORMAT  (8F10.0) 

410  FORMAT  < T 1 0 *24H0UTEP  LOOP  VALUES  V AR  IED/ ( AF 1 2 .3 > ) 

420  FORMAT  (T  1  0  *2AHINN£R  LOOP  VALUES  V AR  ISO/  (  8F1  2. 3 )  ) 

430  FORMAT  ( IHI .T10*8AI0*TIQ0,SHDATE: , A  10 , 5X < 5HT IME ! , A  I  0/27HOV ALUES  FO 
1R  INPUT  VARIABLES, T40»S1H^  INOICATES  THE  VARIABLE  WAS  DEFINED  FOR 
2  THIS  CASE/T40  » 38H<  INDICATES  THE  VARIABLE  IS  UNDEFINED) 

440  FORMAT  (33H0MISSI0N  PEOIJ I REMENTS/ CONSTRAINTS) 

450  FORMAT  (14H0PRO8A8II. (TIES) 

460  FORMAT  (2SH0LAUNCH  COST  COEFFICIENTS) 

470  FORMAT  ( 27HORECOVERY  COST  COEFFICIENTS) 

480  FOPMAT  (29HOOPERATIONS  COST  COEFFICIENTS) 

490  FORMAT  (30HOMAINTENANCE  COST  COEFF IC I  ENTS > 

500  FORMAT  (26HOSTORAGE  COST  COEFFICIENTS) 

510  FORMAT  ( 34H0 INITIAL  STARTUP  COST  COEFFICIENTS) 

520  FORMAT  (27H0TRAIN INC  COST  COEFFICIENTS) 

530  FORMAT  < 26M0VEHICLE  COST  COEFFICIENTS) 

S40  FORMAT  (T10,A10,F10.3) 

550  FORMAT  <4X,A2,AIO,F10.3, 15X , A2 » A 1 0 , FI  0 .3 , 15X , A2 , A 1 0 ,F10 .3, 15X , A2 , A 
I10,F10.3) 

560  FORMAT  < 16HOERRORS  IN  INPUT) 

ENO 
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SUBROUTINE  COST  (TOTAL) 

THIS  ROUTINE  CALCULATES  THE  SYSTEM  COST  BASED  ON  THE  REQUIRED 
LAUNCH  RATES  AND  NUMBER  OF  VEHICLES-TOTAL. IN  STORAGE  ANO  REAOY 

COSTS  ARE  DIVIDED  INTO  EIGHT  TASK  AREAS:  LAUNCH,  RECOVERY. 
MAINTENANCE.  STORAGE.  OPERATIONS.  STARTUP.  TRAINING.  AND 
VEHICLE  ACQUISITION 

RESULTS  FROM  THE  COST  EQUATIONS  ARE  PLACED  IN  THE  ARRAYS 
FOLKS (3.5.2)  PERSONNEL  REQUIREMENTS 

EOUIP (B.5,2)  EQUIPMENT  REQUIREMENTS 

FACIL (fl.5.2)  FACILITIES  REQUIREMENTS 

THE  SUBSCRIPTS  FOR  THESE  ARRAYS  ARE  ARRANGED  AS  FOLLOWS: 

ARRAY (TASK .SUBT  ASK .UNITS) .  WHERE 


TASK  =  1 
2 

3 

4 

5 

6 
7 
fl 


LAUNCH 

RECOVERY 

MAINTENANCE 

STORAGE 

OPERATIONS 

OPERATING  LOCATION  STARTUP 
TRAINING 

VEHICLE  ACQUISITION 


SUBTASK  =  l.N  EOR  THE  SUB-PORTIONS  OF  THE 
COST  ESTIMATING  RELATIONSHIP 

UNITS  =  1  NUMBER  REQUIRED 
2  COST 


IMPLICITREAL(L.M.N) 

common  /inputs/  type.eo.o.ds.rho.raid.rs.to.ts.tm.tmass.m 
lLOL.MINL.ntJMl (7) .PR.PLS.PC.PSS.TPS.DUMS (15) ,CLl .CLP.CL3.CL 

24.CLS.NLC,N00TLC.NLCC.N00TLCr.LD0TE»NLS.MHE.DUM3(3) ,CR1 .CRp.CR 
33.CR4.CR5.NRC.N00TRC.NRCC.N00TRCC.RD0TE .MRS.MRE »DUM4 (3) .COl.CO 
42,nOC.NO0T0C.TC.CO3.OOOTE,ODQTF,C04,0UM5(1) .CM1 , CM2*CM3,CM4.NMC.N 
SOOTMC  »N  TP ,NRE .NRF . RMR  >NMCP .NDOTMCR , CM5,0MM6 (7) .CS1.CS2.CS3.C54, 
6NSC.N00TSC.CS5.0UM7 (3! ,Cl) , C 1 2 , Cl  3 .MSEC , “LBS . DUMB ( 5 ) ,CT1 .CT2.HA.PT 
7,PL»TT»NExl.TCYCLE,CT3«  DUMP (G)»CV1»CV2«CV3,CV4»CV5, GAMMA.DUM 10(4) 
COMMON  /WORKER/  PC  1 .PS  1 . PST .flNS.NVR.NVS .NVT , SLAVG»SLM AX , SLR.NO 
IL.LAHOA.SL.SLRMAX 

COMMON  /RfSULT/  FOLKS (8,5.2) .EQUIP (B .5 .2) .FACIL (8.5,2) 

COMMON  /HEAOER/  TITLE(B) .TODAY, CLOCK,  ITER8 

COMMON  /SWITCH/  PRINT. COSTS, DEBUG, DAT1 .CHGO.CHGDS.CHGRHO.CHGEO.CHG 
1A.PRT0FF .OO.OOS.ORHO.OEO.OA, ID,  IDS,  IPHO.IEO.IA 
LOGICAL  OD.ODS.ORHO.OEO.OA. ID » IDS , IRHO » IEO, I A 
LOGICAL  PRINT, COSTS, OEBUG.OATI 
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LOGICAL  ChGD,CHGOS*CHGRHO,CHGEO,CHGA,PRTOFF 
INTEGER  NOL 

ROUND (ARG) =AINT(ARG*0. 99999999999999) 

CALCULATE  NUMBER  OF  OPERATING  LOCATION  REQUIRED 
MLOL  =  MAXIMUM  LAUNCH  RATE  PER  OPERATING  LOCATION 
NOL  a  NUMBER  OF  OPERATING  LOCATION 

N0L=MA*1  ( ROUNO  ( SLAVG/  ( TO*M|.OL  )  >  *MINL) 

IF  {PRINT)  PRINT  90,  NOL 

COMPUTE  THE  NUMBER  OF  SHIFTS 

SAVESLX»SLMAX 
SSLMAX=SLAVG/ (TO*NOL ) 

SLMAX=SLAVG 

IF  (SLRM4X.0T.SSLMAX)  SLMAX=SLR*NOL 
IF  (PRINT)  PRINT  100,  SL&MAX , SSLMAX ,SLMAX 
S-TO/TS 
S*AMAX1 (l.,S) 

SMaTM/TS 

IF  (SLPMAX.GT.SSLMAX)  10,20 
10  TIME=  < SLAVG*TM ASS/  (NOL*RAIf))  ) 

S— AMAX 1 ( l , , T IME/TS) 

IF  (PRINT)  PRINT  110,  TIME,TS.S 
20  CONTINUE 

////////////////// 

/  launch  costs  / 

////////////////// 

OL»SLMAX/(TO*NOL) 

LAUNCHERS 

EQUIP (1,1 ,  l)=>ROUNO(OL/LDOTE> 

EQU I P ( 1 , 1 , 2 ) *CL2*ECU IP (1,1,1) 

LAUNCH  PERSONNEL 

FOLKS (1,1,1) »S*ROUNO  <NLC*DL/ND0TLC> 

FOLKS (1,1,2) =CL1 «F0LKS (1,1,1) 

LAUNCH  CONTROL  PERSONNEL 

FOLKS (1,2,1) =S*RO(JNO <NLCC*OL/N0OTLCC> 

FOLKS (1,2,2) =CL l*FOLKS (1,2,2) 

LAUNCHER  ACCESSORIES 


73 


non  nnnnnnn  non  non  oon  ooo  o  n  ooooo  non 


EQUIP(1.2,1 )*ROUNO<OL/(NLS*LOOTE) ) 

ECU  IP < 1.2*2 )=CL3*£QU IP (1*2,1) 

mobile  launch  hanoling  equipment 

EQUIP (1.3.1)  =ROUNO  <  OL/MhE ) 

EQUIP <2t2,l)*ROUNO«DL/INRS*ROOTE) > 
EQUIP  0.3*2) =CL4*EQUlP ( 1 >3* 1 ) 

//////////////////// 

/  RECOVERY  COSTS  / 
///////////////////* 

OL*SLMAX/ (TO*NOL) 

RECOVERY  AREAS 

EQUIP  (2*1,1) =ROUND ( DL/RDOTE ) 

EQUIP <2.. 1.2 >=CR2*EQU IP (2*1*1) 

RECOVERY  PERSONNEL 

FOLKS  <2  » 1,1) =S*«OUNO  <NRC«OL/NOOTRC) 
FOLKS (2*1*2) =CR1 'FOLKS (2*1.1) 

RECOVERY  CONTROL  PERSONNEL 

FOLKS (2,2, 1 )»S»ROUNO(NRCC*OL/NOOTRCC) 
FOLKS (2*2*2) *CR1 'FOLKS (2*2*1) 

RECOVERY  ACCESSORIES 

EQUIP  (2.2. 1  )=>ROUNO(OL/NRS) 
EQUIP(2»2,2)*CR3*EQUIP<2*2,1) 

MOBILE  RECOVERY  HANOLING  EQUIPMENT 

EQUlP(2*3*I ) sROUNO ( OL/MPE) 

EQUIP (2*3.2) *CP4'EQUlP(2,3,l) 

///////////////// ////// 


F0LKS(3,1.2)=CMl«F0LKS(3,l»l) 

FOLKS (1.2,1) =  SM*AOUNO  <NMCR*DL*RMR/NOOTMCR  > 
FOLKS  (.1 .2,2  >  =FOLKS  (3»2,1)*CM! 

maintenance  facilities  and  equipment 

EQU IP  <3 » 1 . 1 ) =ROUNO  < OL/NTR  > 

EQUIP (3,2.1) =ROUNO (DL/NRE) 

EQUIP (3,1,2) *CM3*EQU IP (3,1,1) 

EQUlP(3,2«?) »CM4*EQU1P (3,2,1) 

FACIL(3»1,1)=P0UN0(0L/NRF> 

FACIL < 1,1,2 )=CM2*FACIL 13,1,1) 

/////////////////// 

/  STORAGE  COSTS  / 

/////////////////// 

NDOTS=ONS/(NOL*TM) 

STORAGE  PERSONNEL 

FOLKS (4, 1 , 1 ) =ROUNO (SM*ROUND (NSC*NDOTS/NDOTSC)  ) 
FOLKS (4,1 .2)=CS1*F0LKS(4,1,1> 

STORAGE  EQUIPMENT 

EQUIP (4, 1 , 1 )=ROUNO(NOOTS/NOOTSC) 
EQUIP(4,1,2)=CS4*EQUIP<4,1,1) 

storage  facilities 

FACIL (4  »  1 , 1  )srNVS/NOL 
FACIL(4,1,2)=CS2»FACIL(4,1,1) 

FACIL (4,2, 1 )=NVR/NOL 
FACIL(4,2.2)=CS3*FACH-(4,2,1) 

/////////✓//////////// 

/  OPERATIONS  COSTS  / 

////////////////////// 

OL=SLMAX/<TO*NOL) 

OPERATIONS  PERSONNEL 

FOLKS (S , 1,1) =S*ROUNH (NOC*DL*TC/NOOTOC> 
folks  (5,1  ,2)=C01*F0|.KS(S,1  ,1) 

OPERATIONS  EQUIPMENT 
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EQUIP  (5*1.1) aPOUNO (OL/OOOTE) 

EQUIP (5* 1 ,2) =C03«EQUIP (6*1*1) 

operations  FACILITIES 

FACIL (5  *  1 , 1 ) *ROONO (OL/OOOTF) 

FAClL(5*I»2) =C02*FAC IL (5* 1 «  1 ) 

////////////////////// 

/  OL  startup  costs  / 

////////////////////// 

SECURITY  PERSONNEL 

FOLKS (6.1 ,1)»NSEC 
F0LKS(6.1.2)aCIl»F0LKS(6.I,l) 

storage  facilities 

FACIL (6. 1 , I ) aML8S*SL/I .0E6 
FACIL(6.1,2)=CI2*FACIL<6*1,1) 

STARTUP 

FACIL(6*2,1)=1.0 

FACIL (6  *2»2) aCI3*FAClL (6*2» 1 ) 

/✓////////////////// 

/  TRAINING  COSTS  / 

//////////////////// 

NOTEt  TWE  COST  OF  TRAINING  VEHICLES  IS  NOT  COMPUTED 
UNTIL  THE  UNIT  VEHICLE  COST  IS  KNOWN. 

NPT»FOLKS (1*1*1) ‘FOLKS (1*2*1) ♦ FOLKS (2*1*1) .FOLKS  12*2*1) *FOLKS (3*1* 
U)*FOLKS(F.I *1)*F0LKS(4*1.1) 

NPT*NPT*NOL/TCYCLE 
FRACaAMINI (I.O*PT*MOL/TCYCLE) 

IF  (DEBUG)  PRINT  120.  FRAC 

instructors 

FOLKS (7* 1 , 1 ) SROUNO (S  A*PT*NPT  > 

FOLKS (7  * l «2) sCTl*FOLKS (7*1*1) 


TRAINEES 


TRAINING  FACILITIES 

FACILI7*1,1)»1.0 

FACIL (7* 1 ,  2) =FRAC*F  ACIL  <5* 1 *2) 

EQUIPMENT 

Iqu IP  ( 7  * 1*2)=FRAC*( EQUIP ( 1  *  1 *2) *£QU IP ( 1 *2*2) ♦EaUIPn.3*2)*eQUIP(2. 
II .2) *EQUIP (2*2*2) *EQUIP(2.3*2> *EQUIP (3* 1 *2) >  *FR AC*  (EQUIP (3*2*2) *EQ 
2UIP  IS* I »2) ) 

TRA IN IN6  VEHICLES 

TEmPsAMAXI (RAIO.SLAVG/(TO*NOL)) 

NTV=fPAC»TEMP/PR 
NTV=NTV*<! .*10.*PL*TT*NEX1) 

EQUIP (7*2*1) =NTV 
IF  (DEPUG)  PRINT  130*  NTV 

/////////////////////'//"/'/" 

/  VEHICLE  ACQUISITION  COSTS  / 

///////////////////////"/S'S" 

ACQUISITION 

EQUIP<8«I*1)=NVT 

TEMP=CV1* (NVT*NTV)«*( ALOG (GAMMA)  'AL0G(2*  > ) 

EQUIP (A* 1 «2)?NVT*TEMP 

COMPUTE  COST  Of  TRAINING  VEHICLES 
EQUIP(7.2,2)=NTV*TEMP*CV2*NTV 

SPARES 

EQUIP (8*2«2)=CV2*EQUIP  <P* 1*1) 

ROT  ♦  E 

EQU I P ( S  «  3 ♦ 2 ) =CV3 
PAYLOADS 

EQUIP  (8* A *2) =CV4*EQUIP (8*1*1) 

EQU  IP  ( fl  *  5 , 2 ) =CV5*£0/L AMOA 


/////////////////// 
/  PRINT  RESULTS  / 
/////////////////// 
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IF  (.NOT. PRINT)  GO  TO  40 

PRINT  140,  TITLE. T00AY, CLOCK, ITERS 

PRINT  150 

PRINT  160,  FOLKS  1 1.1.1) .FOLKS (1, 1,2) .EQUIP ( 1 , 1 , 1 ) .FOUIP ( 1 . 1 ,2) ,F0L 
IKS (1,2,1). FOLKS <1.2, 2) .EQUIP < 1 »2» 1 ) .EQUIP <1 ,2.2 > .EQUIP ( 1 ,3. 1 > *EQUI 
2P( 1 ,3.2) .CL5/N0L 

PRINT  170,  FOLKS <2.1 ,1) .FOLKS (2, 1,2) . ECU  IP <2, 1 , 1 ) , FQUIP <2 , 1 ,2 ) .FOL 
IKS <2,2. 1) .FOLKS (2.2,2) .EQUIP <2 , 2, 1 ) .EQUIP <2 ,2.2 ) .EQUIP <2.3, 1 ) »EQUI 
2P (2,3,2) ,rfi5/NOL 

PRINT  ISO,  FOLKS <3. 1.1) .FOLKS <3, 1,2) .EQUIP < 3. 1 » 1 ) , EQUIP <3, 1 ,2) .FAC 
1IL<3.1,1) .FACIL13.1.2) .FOLKS <3,2,11 .FOLKS <3, 2,2) .EQUIP <3.2.1 > ,EQUI 
2P<3.2,2) .CM5/N0L 

PRINT  190,  FOLKS <4, 1,1) .FOl.KS <4, 1 ,2) , EQU  IP < 4, 1 . 1 ) .FOUIP <4, 1 .2 > ,FAC 
1 IL<4, 1 ,1) ,FAC1L<4, 1,2) .CS5/N0L.FACIL (4,2,1) .FACIL (4.2.2) 

PRINT  200.  FOLKS <5. 1. 1 ) .FOLKS <5, 1.2) .EQUIP <5, 1 . 1 ) .EQUIP <5, 1 ,2) ,FAC 
1IL(S,1«1),FACIL(S,1«?) .C04/NOL 

PRINT  210,  FOLKS <6, 1,1) .FOLKS <6, 1,2) .FACIL <6, 1 , 1 ) ,FaCIL (6. 1 .2) »FAC 
1 IL (6,2, 1 ) .FACIL  <6,2,2) 

PRINT  TOTALS  PER  OPERATING  LOCATION 

PEPOL=0. 

CPEPOLaO. 

CEQPOL=0. 

CFACOLaO. 

DO  30  1=1,6 
00  30  .1=1,5 

PEP0L=PEPOL*F0LKS  < I , J, 1 ) 

CPEPOL=CPFPOL*FOLKS< I, J.2) 

CEQPOL=CEQPOL*EQU IP ( I • J,2 ) 

CFaC0L=CFaC0L*FACIL(I,J,2) 

30  CONTINUE 

PRINT  240,  PEPOL.CPFPOL.CEOPOL.CFACOL 
PRINT  250,  PEP0L*N0L»CPEP0L*N0L,CEQP0L*N0L»CFAC0L*N0L 
PRINT  220.  FOLKS <7 ,1,1) .FOLKS < 7, l ,2) .EQUIP <7. 1,1), FOUIP <7, 1,2), FAC 
1 IL (7, 1 , 1 ) , FACIL (7,1,2) .FOLKS (7, 2, 1 ) .FOLKS (7,2,2) .EQUIP (7,2,1) ,EQUI 
2P (7,2*2) .CT3/N0L 

PRINT  230,  EQU IP (8, 1,1) .EQUIP <8, 1,2) .EQUIP (8.2,2) , EQUIP (8,3,2) ,EQU 
1  IP (8,4,2) ,EQUIP(8,5,2) 


MULTIPLY  F)Y  NUMBER  OF  OPERATING  LOCATIONS 

40  DO  50  1=1,6 
00  50  .1=1,5 
00  50  K=l,2 

FOLKS ( I , J.K ) =FOLKS ( I , J.K ) *NOL 
EQU IP ( T  » J.K ) =EQUIP ( I , J.K) *NOL 
SO  FACIL(T.J.K)=FACIL(I,J»K)*nOL 
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COMPUTE  TOTALS 

NP£RS*PERSC*0.0 
00  60  1*1,8 
00  60  J*  1  *5 

NP£RS=NPERS,FOLKS< I.J.l) 

60  PERSC*P£RSC .FOLKS < I « J«2) 

EQUPC=0.0 
oo  70  i*i,a 

00  70  .1*1, S 

70  E0uPC*EauPC*E0UIP(I,J*2) 

EQliPC=EQUPC*CLS*CR5*CM5*CS5*C04*CT3 
FAC1.C=0.0 
oo  so  1*1, a 

00  80  J*1,S 

80  FACLC=FAClC*FACIL(I,J,2) 

total=per<;c*fqupc,faclc 

IF  (PRINT)  PRINT  260*  NPERS .PERSC ♦ EOUPC ,FACLC, TOT AL 

c  restore  si  max , 

SLMAX*SAV£SLX 

RETURN 

C 

90  FORMAT  l/T 1 0 ,28HOPER AT InG  LOCATIONS  REQUIRED. T4Q, IS/) 

100  FORMAT  (TlO,S2HLAUNrH  RATE  DETERMINED  BY  RAID  SIZE  (LAUNCHES/HR/OL 
1) »T90.Fl0.1/T10»aiHLAUNCH  RATE  DETERMINED  BY  MAXIMUM  SORTIES  REQUI 
2RE0/0AY  TO  00  J08  (L AUNCH£S/HR/OL ) . T9 1 ,F9. 1  /T1 O.SOHMAX IMUM  LAUNCH 
3  Rate  required  <launches/oay/system> ,t9o,fio.i/> 

110  FORMAT  (T10.27HHOURS/OAY  BASE  MUST  OPERATE ,T50 ,F1 0  .?/Tl 0 , 23HSHIFT 
1LENGTH  (HR)-INPUT.TB0.F10,2/T10.29MNUMHER  OF  SHIFTS/DAY  RESET  TO.T 
250.F10.2) 

120  FORMAT  <6h  FRAC*,F10.4> 

130  FORMAT  <5h  MTV*«E 1 0.3) 

1 40  FORMAT  (lHl,no.8A10,T100,5HOATE: , A 1 0 »5X,SHT IMF  2 , A 1 0/T67 , 9HITERAT I 
ION, 15/) 

150  FORMAT  (/T20 » 02H°ER5ONNEL  PER  OPERATING  LQCAT ION. T6 1 , 32HE0UIPMENT 
1PER  OPERATING  LOCATION. T102O3HFACILIT1ES  PER  OPERATING  LOCATION/T 
218,36 ( 1H-) ,T59,36( 1H-) ,T100,36( JH-) ) 

160  FORMAT  (7H  LAUNCH, T19,6HLAIJNCH,T37»F4.0,F12.2»T60»9HLAUNCHERS,T78, 
1FA.0,F12.?/T19, 14HLAI1NCH  CONTROL , T37 »F4 . 0 ,F1 2 .2 , T60 , 1 1 HACCESSOR IES 
2,T78,Fa.0,F12.2/T60,12HMOBILE  EQUIP, T78,F4.0,F12.2/T60»7HROT  ♦  E,T 
332.F12.2) 

170  FORMAT  (9H0REC0VERY ,T 19, 8HREC0VER Y . T37 , F4. 0 ,F1 2 .2. T60 , 1 4HREC0VERY 
1ARFAS.T78,F4.0,FI2.?/T19, 16HREC0VERY  CONTROL , T37 ,F4 , 0  ,F12 .2 , T60 , 11 
2H ACCESSOR  I ES.T78.F4 ,0 ,F12.?,/T60, 12HM0B ILE  EOU1P»T78,F4.0»F12.2/T6 
30 , 7HR0T  ♦  E.T82.F12.2) 

180  FOPMAT  ( 1 7H0MA INTENANCE . T 1 9 , 9HPERS0NNFL ,T36,F5.0,F1P.2,T60» 16HTURN 
1  AROUND  EOUIP,T78,F4.0,F12.2.T101 , 15HMA1NT  BUILDINGS . T1 1 9, F4.0 »F1 2 . 
22/T19, 11HPEPAIR  PERS. T36 .F5 .0 ,F 1 2 .2 , T60, 1 2HR£P AIR  EOUIP,T7B,F4.0,F 
312.2/T60.7HR0T  ♦  F»T82,F12.2) 


190  FORMAT  (8HOSTOHAGE* T 19.9HPERS0NNEL , T37 »F4.0 .F12 .2 . T60 , 14HHAN0LING 
1EOUIP,T78,F4.0,F12.2*T101, 12HCOLO  STORAGE* T116,F7.0,F12.2/T60,7HRO 
2T  *  £,T82,F12.2,T101,13HREa0Y  STORAGE, T1 16,F7.0»F12. 2) 

200  FORMAT  ( 1 1 HOOPER AT TONS . T 19  *  9HPERS0NNRL  »T37,F4.0*F1?.2»T60»1 3HCONTR 
1 OU  E0UTP.T73.F4.0.F12.2, T 1 0 l » 1 6HCOMTRCL  F AC ILITY , T 1 1 9 *F4. 0 ,F 12.2/T 
260 * 7HR0T  ♦  E.TS2.F12.2) 

210  FORMAT  ( 1 1 HOOL  ST AHTUP , T 1 9 .8HSECUR TTY , T 37 , F4 .0 . FI  2 .2* T 1 0 1 . 1 4hM ISS . 
1  FAC  STOR.T113,F10.0»F1?.2/T101,18HINITTAL  ACT  I V AT  TON. T 1 1 9,F4 . 0 ,F 1 
22.2) 

220  FORMAT  < 9hO TRAIN IMG. T19, 1 1H INS TRUCTORS » T37.F4 . 0 ,F1 2 .2, T60 » 1 3HSPECI 
1AL  E0UIP*T78*F4.0»F12.2*T1a1,17HTRAINING  LOCAT ION . T1 19, F4 . 0 *F 12 .2/ 
2T19.8HTRA INEES*  T3S.F6.0  *Fl2«2*T60*l 7HTR AIN ING  VEH ICLES ♦ T74.F8 .0 ,F1 
32.2/T60.7HHOT  *•  E,Ta2,Fl2.2> 

230  FORMAT  (9hOV£HICLES,T60»1 1 hACOUIS IT  ION  *  T74.F8. 0  »F1 2 .2/T63.6HSP ARES 
1,T80*F14.2/T60,7HROT  ♦  E* T80 .F14.2/T60 , 19MREC0VERA6LE  PAYLOAD, T80, 
2F14.2/T60. 1 8HEXPENOABLE  PAyLOAO, T80 ,F14 .2) 

240  FORMAT  </20M  **  TOTALS  PER  OL  **,T34,F7.0,Fl2.2,T7a.F16.2,TU9,F16 

1.2) 

2S0  FORMAT  (24H  **  TOTALS  FOR  ALL  OL  **,T34,F7.0,F12.2,T78,F16.2,TU9, 
1F16.2) 

260  FORMAT  < lx , 135  < 1H- ) /31H  **  TOTALS  FOR  ENTIRE  SYSTEM  **, T34.F7 . 0 ,F1 
12.2*T78,Fl6.2»Tl  1  R,F  1'6 ,2'/</?<*M  **  TOTAL  SYSTEM  COST  ** , T37 , FI 6 .2) 
ENO 
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